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   235714 use 5.014;
  10         40  
2 10     10   56 use strict;
  10         35  
  10         219  
3 10     10   58 use warnings;
  10         41  
  10         283  
4              
5 10     10   546 use Result::Trait ();
  10         17  
  10         606  
6              
7             package Result::OkList;
8              
9             our $AUTHORITY = 'cpan:TOBYINK';
10             our $VERSION = '0.005';
11              
12 10     10   4637 use parent qw( Result::Ok );
  10         3115  
  10         63  
13              
14             'overload'->import( 'Result::Trait'->__OVERLOAD_ARGS__( 'ok_list', '_peek' ) );
15              
16             sub unwrap {
17 12     12 0 1780 my ( $self ) = @_;
18 12 100 66     422 @_ == 1 && wantarray
19             or Carp::croak( 'Usage: $result->unwrap() in list context' );
20              
21 10         111 $self->[0] = !!1;
22              
23 10         15 @{ $self->[1] };
  10         280  
24             }
25              
26             1;
27              
28             __END__