File Coverage

test/classtest2.pm

Criterion	Covered	Total	%
statement	15	130	11.5
branch	0	90	0.0
condition	0	47	0.0
subroutine	5	16	31.2
pod			n/a
total	20	283	7.0

use Class::HPLOO qw(alloo) ;

class Bar {

  sub Bar {
    $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;