X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FApp%2FRgit%2FCommand.pm;fp=lib%2FApp%2FRgit%2FCommand.pm;h=c43cc6c5c9e7cbe21a3a4622acd5e8c6b2163bbd;hb=76ba389e3711e8f254aea83f9b3b7b221c0517a8;hp=645d5c33c67123617bb1e507c97e3e4de42d9044;hpb=dc668e3c302569ed2b5eb2ed893247308f22528a;p=perl%2Fmodules%2Frgit.git

diff --git a/lib/App/Rgit/Command.pm b/lib/App/Rgit/Command.pm
index 645d5c3..c43cc6c 100644
--- 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>