File Coverage

lib/AutoCode/Root.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	5	8	62.5
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	39	46	84.7

package AutoCode::Root;
use strict;
use AutoCode::Root0;
our @ISA=qw(AutoCode::Root0);
our $VERSION='0.01';
our $DEBUG;
# our $debug;
use AutoCode::SymbolTableUtils;
use AutoCode::AccessorMaker;

sub _find_super {
    my ($dummy, $method)=@_;
    my $ref=ref($dummy) || $dummy;
    no strict 'refs';

    foreach(@{"$ref\::ISA"}){
        next if $_ eq 'UNIVERSAL';
        return $_ if defined &{"$_\::$method"};
        my $super = _find_super($_, $method);
        return $super if defined $super;
    }
    return undef;
}

sub debug {
    my ($class, $msg)=@_;
    print STDERR "[". ref($class). "]\n$msg\n"
        unless $AutoCode::Root::DEBUG==0;

}

1;