use Carp ();
-use App::Rgit::Utils qw/:codes/;
+use App::Rgit::Utils qw<:codes>;
=head1 NAME
=head1 VERSION
-Version 0.06
+Version 0.08
=cut
-our $VERSION = '0.06';
+our $VERSION = '0.08';
=head1 DESCRIPTION
=head1 METHODS
-=head2 C<< new cmd => $cmd, args => \@args >>
+=head2 C<new>
+
+ my $arc = App::Rgit::Command->new(
+ cmd => $cmd,
+ args => \@args,
+ );
Creates a new command object for C<$cmd> that is bound to be called with arguments C<@args>.
=cut
my %commands;
-__PACKAGE__->action($_ => 'Once') for qw/daemon gui help init version/, ' ';
+__PACKAGE__->action($_ => 'Once') for qw<daemon gui help init version>, ' ';
sub new {
my $class = shift;
}, $class;
}
-=head2 C<< action $cmd [ => $pkg ] >>
+=head2 C<action>
+
+ my $pkg = $arc->action($cmd);
+ $arc->action($cmd => $pkg);
If C<$pkg> is supplied, handles command C<$cmd> with C<$pkg> objects.
Otherwise, returns the current class for C<$cmd>.
$commands{$cmd} = $pkg;
}
-=head2 C<report $conf, $repo, $status>
+=head2 C<report>
+
+ my $code = $arc->report($conf, $repo, $status);
Reports that the execution of the command in C<$repo> exited with C<$status> to the current command's policy.
Returns what policy C<report> method returned, which should be one of the policy codes listed in C<App::Rgit::Utils>.
=cut
BEGIN {
- eval "sub $_ { \$_[0]->{$_} }" for qw/cmd args policy/;
+ eval "sub $_ { \$_[0]->{$_} }" for qw<cmd args policy>;
}
-=head2 C<run $conf>
+=head2 C<run>
+
+ my $code = $arc->run($conf);
Runs the command with a L<App::Rgit::Config> configuration object.
Handles back the code to return to the system and the last policy.
=head1 BUGS
-Please report any bugs or feature requests to C<bug-rgit at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=rgit>. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
+Please report any bugs or feature requests to C<bug-rgit at rt.cpan.org>, or through the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=rgit>.
+I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.
=head1 SUPPORT
=head1 COPYRIGHT & LICENSE
-Copyright 2008-2009 Vincent Pit, all rights reserved.
+Copyright 2008,2009,2010 Vincent Pit, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.