Remove trailing whitespace

[perl/modules/rgit.git] / lib / App / Rgit / Command.pm

diff --git a/lib/App/Rgit/Command.pm b/lib/App/Rgit/Command.pm
index 645d5c33c67123617bb1e507c97e3e4de42d9044..3a34822317dc3a37c2b5c738528f53bd96b57d5a 100644 (file)
--- a/lib/App/Rgit/Command.pm
+++ b/lib/App/Rgit/Command.pm
@@ -5,8 +5,6 @@ use warnings;
 
 use Carp qw/croak/;
 
-use Object::Tiny qw/cmd args policy/;
-
 use App::Rgit::Utils qw/validate :codes/;
 
 =head1 NAME
@@ -50,11 +48,11 @@ sub new {
                                unless $class->isa($action);
  }
  eval "require $action; 1" or croak "Couldn't load $action: $@";
- $class->SUPER::new(
+ bless {
   cmd    => $cmd,
   args   => $args{args} || [ ],
   policy => $args{policy},
- );
+ }, $class;
 }
 
 =head2 C<< action $cmd [ => $pkg ] >>
@@ -99,7 +97,13 @@ sub report {
 
 =head2 C<policy>
 
-Accessors.
+Read-only accessors.
+
+=cut
+
+BEGIN {
+ eval "sub $_ { \$_[0]->{$_} }" for qw/cmd args policy/;
+}
 
 =head2 C<run $conf>
 
@@ -114,7 +118,7 @@ L<rgit>.
 =head1 AUTHOR
 
 Vincent Pit, C<< <perl at profvince.com> >>, L<http://profvince.com>.
-   
+
 You can contact me by mail or on C<irc.perl.org> (vincent).
 
 =head1 BUGS