File Coverage

test/testsuper.pm

Criterion	Covered	Total	%
statement	65	86	75.5
branch	7	26	26.9
condition	6	30	20.0
subroutine	17	23	73.9
pod			n/a
total	95	165	57.5

use Class::HPLOO base ;

class TestSuper extends TestSuper2 {

  sub TestSuper {
    $this->{2} = $this->SUPER ;
    $this->{n2} = $CLASS->SUPER ;
    return $this ;
  }

  sub test {
    return( 't1' , $this->SUPER) ;
  }

}


class TestSuper2 extends TestSuper3 {

  sub TestSuper2 {
    $this->{3} = $this->SUPER if $this ;
    $this->{n3} = $CLASS->SUPER ;
    return $this ;
  }

  sub test {
    return( 't2' , $this->SUPER) ;
  }

}

class TestSuper3 {

  vars($id) ;

  sub TestSuper3 {
    $this->{id} = ++$id ;
    return $this ;
  }

  sub test {
    return( 't3' ) ;
  }

}