File Coverage

blib/lib/Result/OkList.pm
Criterion Covered Total %
statement 19 19 100.0
branch 2 2 100.0
condition 2 3 66.6
subroutine 6 6 100.0
pod 0 1 0.0
total 29 31 93.5


line stmt bran cond sub pod time code
1 10     10   229278 use 5.014;
  10         39  
2 10     10   58 use strict;
  10         35  
  10         212  
3 10     10   47 use warnings;
  10         21  
  10         254  
4              
5 10     10   570 use Result::Trait ();
  10         32  
  10         573  
6              
7             package Result::OkList;
8              
9             our $AUTHORITY = 'cpan:TOBYINK';
10             our $VERSION = '0.004';
11              
12 10     10   4622 use parent qw( Result::Ok );
  10         3174  
  10         68  
13              
14             'overload'->import( 'Result::Trait'->__OVERLOAD_ARGS__( 'ok_list', '_peek' ) );
15              
16             sub unwrap {
17 12     12 0 1685 my ( $self ) = @_;
18 12 100 66     389 @_ == 1 && wantarray
19             or Carp::croak( 'Usage: $result->unwrap() in list context' );
20              
21 10         166 $self->[0] = !!1;
22              
23 10         15 @{ $self->[1] };
  10         288  
24             }
25              
26             1;
27              
28             __END__