diff options
author | dakkar <dakkar@thenautilus.net> | 2018-07-13 18:52:08 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2018-07-13 18:52:08 +0100 |
commit | 9c7b213f58fe533953953e90b5bc77087ca4d45d (patch) | |
tree | c78cd04844a4ba1e92f1bf1dc29c14b3813e4bc7 /lib/Getopt/Dakkar/Role/Piece.pm | |
parent | I'm losing the plot, here (diff) | |
download | Getopt-Dakkar-master.tar.gz Getopt-Dakkar-master.tar.bz2 Getopt-Dakkar-master.zip |
Diffstat (limited to 'lib/Getopt/Dakkar/Role/Piece.pm')
-rw-r--r-- | lib/Getopt/Dakkar/Role/Piece.pm | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/lib/Getopt/Dakkar/Role/Piece.pm b/lib/Getopt/Dakkar/Role/Piece.pm index 81c89e7..5b7609d 100644 --- a/lib/Getopt/Dakkar/Role/Piece.pm +++ b/lib/Getopt/Dakkar/Role/Piece.pm @@ -12,20 +12,4 @@ has matching_strings => ( ); sub _build_matching_strings($self) { [ $self->name, $self->aliases->@* ] } -has class => ( is => 'ro', isa => ClassName, default => 'Getopt::Dakkar::Stash' ); -has object => ( is => 'ro', isa => Object ); -has op => ( is => 'ro', isa => Str|CodeRef ); - -sub make_stash($self,$argpack) { - if (my $o = $self->object) { return $o } - - my $class = use_module($self->class); - if (my $from_argpack = $class->can('new_from_argpack')) { - return $class->$from_argpack($argpack); - } - else { - return $class->new(); - } -} - requires qw(parse match); |