File Coverage

blib/lib/Tree/Range.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 1 1 100.0
total 8 8 100.0


line stmt bran cond sub pod time code
1             ### Range.pm --- Provide the Tree::Range->new () wrapper -*- Perl -*-
2              
3             ### Ivan Shmakov, 2013
4              
5             ## To the extent possible under law, the author(s) have dedicated all
6             ## copyright and related and neighboring rights to this software to the
7             ## public domain worldwide. This software is distributed without any
8             ## warranty.
9              
10             ## You should have received a copy of the CC0 Public Domain Dedication
11             ## along with this software. If not, see
12             ## .
13              
14             ### Code:
15              
16             package Tree::Range;
17              
18 1     1   790 use strict;
  1         2  
  1         101  
19              
20             our $VERSION = 0.22;
21              
22             sub new {
23 2     2 1 2881 my ($class, $variety, @args) = @_;
24             ## .
25 2         28 ("Tree::Range::" . ${variety})->new (@args);
26             }
27              
28             1;
29              
30             ### Emacs trailer
31             ## Local variables:
32             ## coding: us-ascii
33             ## End:
34             ### Range.pm ends here