File Coverage

blib/lib/Test/Ranger/List.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	1	2	50.0
total	38	39	97.4

package Test::Ranger::List;
use parent Test::Ranger;

use strict;
use warnings;
use Carp;

use version 0.77; our $VERSION = qv('0.0.4');

## use

#============================================================================#

#=========# CLASS METHOD
#
#   my $list    = $class->new( \@list );
#   my $list    = $class->new([
#                       { -a  => 'x' },
#                       { -b  => 'y' },
#                   ]);
#
# Purpose   : Object constructor
# Parms     : $class    : Any subclass of this class
#           : \@list    : Arrayref only; required
# Returns   : $self
# Invokes   : init()
#
# An object of this $class is a hashref, *not* an arrayref!
# But it is constructed by passing in an arrayref.
# An empty hashref is blessed into $class.
# Each element of @list is blessed into Test::Ranger in init().
# Housekeeping info for the whole object is stored in other keys.
#
sub new {
    my $class   = shift;
    my @list    = @{ shift() };
    my $self    = {};

    bless ($self => $class);
    $self->init(@list);

    return $self;
}; ## new

#=========# OBJECT METHOD
#
#   $self->init( @list );
#
# Purpose   : Object initializer
# Parms     : $class
#           : @list     : Array; required
# Returns   : $self
# Invokes   : Test::Ranger::new()
#
# Blesses each element of @list into Test::Ranger and
#   assigns \@list to $self->{-list}.
# Adds housekeeping info for the whole object to other keys.
#
sub init {
    my $self        = shift;
    my @list_in     = @_;
    my @list_out    ;

    foreach my $single (@list_in) {
        push @list_out, Test::Ranger->new($single);
    };

    $self->{-list}              = \@list_out;
    $self->SUPER::init();

    return $self;
}; ## init



## END MODULE
1;
#============================================================================#
__END__