File Coverage

blib/lib/Astro/App/Satpass2/Wrap/Array.pm
Criterion Covered Total %
statement 18 20 90.0
branch 2 4 50.0
condition n/a
subroutine 6 6 100.0
pod 2 2 100.0
total 28 32 87.5


line stmt bran cond sub pod time code
1             package Astro::App::Satpass2::Wrap::Array;
2              
3 8     8   2066 use 5.008;
  8         35  
4              
5 8     8   46 use strict;
  8         19  
  8         191  
6 8     8   46 use warnings;
  8         24  
  8         276  
7              
8 8     8   56 use Astro::App::Satpass2::Utils qw{ ARRAY_REF @CARP_NOT };
  8         33  
  8         1768  
9              
10             our $VERSION = '0.052';
11              
12             sub new {
13 219     219 1 1292 my ( $class, $array ) = @_;
14 219 50       619 ref $class and $class = ref $class;
15 219 50       598 if ( ARRAY_REF ne ref $array ) {
16 0         0 require Carp;
17 0         0 Carp::croak( 'Argument must be an array reference' );
18             }
19 219         652 return bless $array, $class;
20             }
21              
22             sub dereference {
23 638     638 1 1143 my ( $self ) = @_;
24 638         960 return @{ $self };
  638         1713  
25             }
26              
27             1;
28              
29             __END__