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 |