[Bps-public-commit] r12096 - Shipwright/trunk/lib/Shipwright/Script

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue May  6 07:53:45 2008
New Revision: 12096

Added:
   Shipwright/trunk/lib/Shipwright/Script/List.pm

Log:
added list cli

Added: Shipwright/trunk/lib/Shipwright/Script/List.pm
==============================================================================
--- (empty file)
+++ Shipwright/trunk/lib/Shipwright/Script/List.pm	Tue May  6 07:53:45 2008
@@ -0,0 +1,89 @@
+package Shipwright::Script::List;
+
+use strict;
+use warnings;
+use Carp;
+
+use base qw/App::CLI::Command Class::Accessor::Fast Shipwright::Script/;
+__PACKAGE__->mk_accessors(
+    qw/repository log_level log_file dist/
+);
+
+use Shipwright;
+use Data::Dumper;
+
+=head2 options
+=cut
+
+sub options {
+    (
+        'r|repository=s' => 'repository',
+        'l|log-level=s'  => 'log_level',
+        'log-file=s'     => 'log_file',
+        'dist=s'         => 'dist',
+    );
+}
+
+=head2 run
+=cut
+
+sub run {
+    my $self = shift;
+    my $dist = shift;
+
+    die "need repository arg" unless $self->repository();
+
+    $self->dist( $dist ) if $dist && ! $self->dist;
+
+    my $shipwright = Shipwright->new(
+        repository => $self->repository,
+        log_level  => $self->log_level || 'fatal',
+        log_file   => $self->log_file,
+    );
+
+    my $info = $shipwright->backend->versions;
+
+    if ( $self->dist ) {
+        if ( exists $info->{$self->dist} ) {
+            print $self->dist, ': ', $info->{$self->dist}, " dist.\n";
+        }
+        else {
+            print $self->dist, ': not exist' . "\n";
+        }
+    }
+    else {
+        for my $dist ( sort keys %$info ) {
+            print $dist, ': ', $info->{$dist}, "\n";
+        }
+    }
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Shipwright::Script::List - list dists of a project
+
+=head1 SYNOPSIS
+
+  shipwright list         list dists of a project
+
+ Options:
+   --repository(-r)   specify the repository of our project
+   --log-level(-l)    specify the log level
+   --dist             sepecify the dist name
+
+=head1 AUTHOR
+
+sunnavy  C<< <sunnavy at bestpractical.com> >>
+
+
+=head1 LICENCE AND COPYRIGHT
+
+Copyright 2007 Best Practical Solutions.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+