File Coverage

File:blib/lib/Language/Homespring/River.pm
Coverage:90.5%

linestmtbrancondsubtimecode
1package Language::Homespring::River;
2
3$VERSION = 0.01;
4
5
4
4
4
4
20
7
18
use warnings;
6
4
4
4
4
25
8
18
use strict;
7
8my $river_count = 0;
9
10sub new {
11
95
95
226
        my $class = shift;
12
95
290
        my $self = bless {}, $class;
13
14
95
210
        my $options = shift;
15
95
316
        $self->{interp} = $options->{interp};
16
95
50
415
        $self->{up_node} = $options->{up_node} || undef;
17
95
50
402
        $self->{down_node} = $options->{down_node} || undef;
18
95
256
        $self->{uid} = ++$river_count;
19
20
95
268
        return $self;
21}
22
231;