File Coverage

blib/lib/Paths/Tree.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	5	6	83.3
condition			n/a
subroutine	3	3	100.0
pod	1	2	50.0
total	24	26	92.3

package Paths::Tree;

@ISA = qw(Exporter);
@EXPORT_OK = qw/tree()/;

require 5.005_62;
our $VERSION = '0.02';

use strict;

sub new {
        my ($class , %vals)  = @_;
	my $self;
        bless $self = {
			tree =>  $vals{-tree} ,
			origin=> $vals{-origin},
			sub  =>  $vals{-sub} ,
	} , $class;
	return $self;
}



sub tree {
        my ($self , $father, $level ,%h) = @_;
	$father = $self->{origin} unless $father;
        foreach my $child ( @{$self->{tree}{$father} }) {
		last if $h{$child};$h{$child}=1;
		$self->{sub}->($child,$level);
                $self->tree($child, ($level + 1),%h ) if $self->{tree}{$child};
        }
}

__END__