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   1947 use 5.008;
  8         30  
4              
5 8     8   53 use strict;
  8         24  
  8         165  
6 8     8   50 use warnings;
  8         26  
  8         266  
7              
8 8     8   42 use Astro::App::Satpass2::Utils qw{ ARRAY_REF @CARP_NOT };
  8         23  
  8         1778  
9              
10             our $VERSION = '0.051';
11              
12             sub new {
13 219     219 1 1316 my ( $class, $array ) = @_;
14 219 50       583 ref $class and $class = ref $class;
15 219 50       534 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         623 return bless $array, $class;
20             }
21              
22             sub dereference {
23 638     638 1 1294 my ( $self ) = @_;
24 638         919 return @{ $self };
  638         1949  
25             }
26              
27             1;
28              
29             __END__