File Coverage

blib/lib/App/bif/show.pm
Criterion Covered Total %
statement 15 17 88.2
branch 0 2 0.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 21 25 84.0


line stmt bran cond sub pod time code
1             package App::bif::show;
2 6     6   4761 use strict;
  6         14  
  6         172  
3 6     6   29 use warnings;
  6         13  
  6         159  
4 6     6   35 use Bif::Mo;
  6         12  
  6         37  
5 6     6   31 use OptArgs 'class_optargs';
  6         12  
  6         45  
6              
7             our $VERSION = '0.1.5_7';
8             extends 'App::bif';
9              
10             sub run {
11 1     1 1 2 my $self = shift;
12 1         4 my $opts = $self->opts;
13 1         8 my $info = $self->get_node( $self->uuid2id( $opts->{id} ) );
14              
15             my ( $class, $newopts ) =
16             class_optargs( 'App::bif', 'show', $info->{kind}, $info->{id},
17 0 0         { $opts->{log} ? ( log => undef ) : (), } );
18              
19 0           return $self->dispatch( $class, opts => $newopts );
20             }
21              
22             1;
23             __END__