File Coverage

blib/lib/Language/Homespring/River.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition	2	4	50.0
subroutine	3	3	100.0
pod	0	1	0.0
total	19	22	86.3

package Language::Homespring::River;

$VERSION = 0.01;

use warnings;
use strict;

my $river_count = 0;

sub new {
	my $class = shift;
	my $self = bless {}, $class;

	my $options = shift;
	$self->{interp}		= $options->{interp};
	$self->{up_node}	= $options->{up_node} || undef;
	$self->{down_node}	= $options->{down_node} || undef;
	$self->{uid}		= ++$river_count;

	return $self;
}

1;