[Bps-public-commit] r9719 - bpsbuilder/BPB/lib/BPB/Script
sunnavy at bestpractical.com
sunnavy at bestpractical.com
Wed Nov 21 07:41:43 EST 2007
Author: sunnavy
Date: Wed Nov 21 07:41:43 2007
New Revision: 9719
Added:
bpsbuilder/BPB/lib/BPB/Script/Checkout.pm
Log:
added checkout cli
Added: bpsbuilder/BPB/lib/BPB/Script/Checkout.pm
==============================================================================
--- (empty file)
+++ bpsbuilder/BPB/lib/BPB/Script/Checkout.pm Wed Nov 21 07:41:43 2007
@@ -0,0 +1,44 @@
+package BPB::Script::Checkout;
+
+use warnings;
+use strict;
+use Carp;
+
+use base qw/App::CLI::Command Class::Accessor::Fast/;
+__PACKAGE__->mk_accessors(qw/config category path target/);
+
+use BPB;
+
+sub options {
+ ( 'c|config=s' => 'config',
+ 'g|category=s' => 'category',
+ 'p|path=s' => 'path',
+ 't|target=s' => 'target',
+ )
+}
+
+
+sub run {
+ my $self = shift;
+ my $bpb = BPB->new( config => $self->config );
+ $bpb->backend->checkout( map { $_, $self->$_ } qw/category path target/ );
+
+}
+
+
+1;
+
+__END__
+
+=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.
+
More information about the Bps-public-commit
mailing list