diff options
author | dakkar <dakkar@thenautilus.net> | 2017-03-24 17:57:04 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2017-03-24 17:57:04 +0000 |
commit | b2074b822e39b09bcc0b44ce77b8ceab21e52069 (patch) | |
tree | 800182ec459b5efbd2a0b190727ef05c1922e8c5 /lib/Sietima/Runner.pm | |
parent | v1.0.1 (diff) | |
parent | Dzil-build release 1.0.0 (from 9f1fc6d on master) (diff) | |
download | Sietima-1.0.1.tar.gz Sietima-1.0.1.tar.bz2 Sietima-1.0.1.zip |
Dzil-build release 1.0.1 (from 5ab528e on master)v1.0.1
Diffstat (limited to 'lib/Sietima/Runner.pm')
-rw-r--r-- | lib/Sietima/Runner.pm | 50 |
1 files changed, 38 insertions, 12 deletions
diff --git a/lib/Sietima/Runner.pm b/lib/Sietima/Runner.pm index ca64348..8580cbd 100644 --- a/lib/Sietima/Runner.pm +++ b/lib/Sietima/Runner.pm @@ -3,9 +3,37 @@ use Moo; use Sietima::Policy; use namespace::clean; -# VERSION +our $VERSION = '1.0.1'; # VERSION # ABSTRACT: C<App::Spec::Run> for Sietima + +extends 'App::Spec::Run'; + +sub run_op($self,$op,$args=[]) { + if ($op =~ /^cmd_/) { + $self->$op($args); + } + else { + $self->cmd->$op($self,$args); + } +} + +1; + +__END__ + +=pod + +=encoding UTF-8 + +=head1 NAME + +Sietima::Runner - C<App::Spec::Run> for Sietima + +=head1 VERSION + +version 1.0.1 + =head1 DESCRIPTION You should never need to care about this class, it's used internally @@ -18,17 +46,15 @@ delegate back via L<< C<App::Spec::Run::Cmd> >>. =for Pod::Coverage run_op -=cut +=head1 AUTHOR -extends 'App::Spec::Run'; +Gianni Ceccarelli <dakkar@thenautilus.net> -sub run_op($self,$op,$args=[]) { - if ($op =~ /^cmd_/) { - $self->$op($args); - } - else { - $self->cmd->$op($self,$args); - } -} +=head1 COPYRIGHT AND LICENSE -1; +This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>. + +This is free software; you can redistribute it and/or modify it under +the same terms as the Perl 5 programming language system itself. + +=cut |