File Coverage

blib/lib/Test/C2FIT/GenericArrayAdapter.pm

Criterion	Covered	Total	%
statement	6	20	30.0
branch	0	8	0.0
condition			n/a
subroutine	2	5	40.0
pod	3	3	100.0
total	11	36	30.5

# $Id: GenericArrayAdapter.pm,v 1.6 2006/06/16 15:20:56 tonyb Exp $
#
# Copyright (c) 2002-2005 Cunningham & Cunningham, Inc.
# Released under the terms of the GNU General Public License version 2 or later.
#
# Perl translation by Dave W. Smith
# Modified by Tony Byrne

package Test::C2FIT::GenericArrayAdapter;

use strict;
use vars qw(@ISA);
@ISA = qw(Test::C2FIT::TypeAdapter);

sub parse {
    my $self = shift;
    my ($s) = @_;

    return [ split( /,/, $s ) ];
}

sub toString {
    my $self = shift;
    my ($o) = @_;

    return join( ',', @$o );
}

sub equals {
    my $self = shift;
    my ( $a, $b ) = @_;

    return 0 unless ref($a) eq "ARRAY";
    return 0 unless ref($b) eq "ARRAY";

    #DEBUG print "ArrayArrayAdapter::equals ", ref($a), ", ", ref($b), "\n";
    return 0 if scalar @$a != scalar @$b;
    for ( my $i = 0 ; $i < scalar @$a ; ++$i ) {
        return 0 if $$a[$i] ne $$b[$i];
    }
    return 1;
}

1;

__END__