File Coverage

blib/lib/Sietima/Runner.pm
Criterion Covered Total %
statement 9 17 52.9
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 24 54.1


line stmt bran cond sub pod time code
1             package Sietima::Runner;
2 2     2   17855 use Moo;
  2         5  
  2         13  
3 2     2   613 use Sietima::Policy;
  2         5  
  2         47  
4 2     2   11 use namespace::clean;
  2         4  
  2         17  
5              
6             our $VERSION = '1.0.5'; # VERSION
7             # ABSTRACT: C<App::Spec::Run> for Sietima
8              
9              
10             extends 'App::Spec::Run';
11              
12 0     0 1   sub run_op($self,$op,$args=[]) {
  0            
  0            
  0            
  0            
13 0 0         if ($op =~ /^cmd_/) {
14 0           $self->$op($args);
15             }
16             else {
17 0           $self->cmd->$op($self,$args);
18             }
19             }
20              
21             1;
22              
23             __END__
24              
25             =pod
26              
27             =encoding UTF-8
28              
29             =head1 NAME
30              
31             Sietima::Runner - C<App::Spec::Run> for Sietima
32              
33             =head1 VERSION
34              
35             version 1.0.5
36              
37             =head1 DESCRIPTION
38              
39             You should never need to care about this class, it's used internally
40             by L<< C<Sietima::CmdLine> >>.
41              
42             This is a subclass of L<< C<App::Spec::Run> >> that uses directly
43             itself to execute the built-in commands, instead of delegating to the
44             C<cmd> object (in our case, a C<Sietima> instance) which would
45             delegate back via L<< C<App::Spec::Run::Cmd> >>.
46              
47             =for Pod::Coverage run_op
48              
49             =head1 AUTHOR
50              
51             Gianni Ceccarelli <dakkar@thenautilus.net>
52              
53             =head1 COPYRIGHT AND LICENSE
54              
55             This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
56              
57             This is free software; you can redistribute it and/or modify it under
58             the same terms as the Perl 5 programming language system itself.
59              
60             =cut