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

package Astro::App::Satpass2::Wrap::Array;

use 5.008;

use strict;
use warnings;

use Astro::App::Satpass2::Utils qw{ ARRAY_REF @CARP_NOT };

our $VERSION = '0.051_01';

sub new {
    my ( $class, $array ) = @_;
    ref $class and $class = ref $class;
    if ( ARRAY_REF ne ref $array ) {
	require Carp;
	Carp::croak( 'Argument must be an array reference' );
    }
    return bless $array, $class;
}

sub dereference {
    my ( $self ) = @_;
    return @{ $self };
}

1;

__END__