File Coverage

test/classtest.pm

Criterion	Covered	Total	%
statement	42	44	95.4
branch	8	20	40.0
condition	6	15	40.0
subroutine	8	8	100.0
pod			n/a
total	64	87	73.5

use Class::HPLOO ;

class Foo extends Bar , Baz {

  sub Foo {
    $this->{attr} = $_[0] ;
  }

  sub test_arg($arg1) {
    $this->{arg1} = $arg1 ;
  }

  sub test_ref($arg2 , \@list , \%opts) {
    $this->{arg2} = $arg2 ;
    $this->{l0} = @list[0] ;
    $this->{l1} = @list[1] ;
    $this->{opts} = \%opts ;
  }

}

1;