line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# $Id: FindNearby.pm 297 2009-11-16 04:37:07Z jabra $ |
2
|
|
|
|
|
|
|
package Fierce::Parser::Domain::FindNearby; |
3
|
|
|
|
|
|
|
{ |
4
|
|
|
|
|
|
|
our $VERSION = '0.01'; |
5
|
|
|
|
|
|
|
$VERSION = eval $VERSION; |
6
|
|
|
|
|
|
|
|
7
|
1
|
|
|
1
|
|
1075
|
use Object::InsideOut; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
7
|
|
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
my @ptrs : Field : Arg(ptrs) : Get(ptrs) : |
10
|
|
|
|
|
|
|
Type(List(Fierce::Parser::PTR)); |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
my @starttime : Field : Arg(starttime) : Get(starttime); |
13
|
|
|
|
|
|
|
my @endtime : Field : Arg(endtime) : Get(endtime); |
14
|
|
|
|
|
|
|
my @starttimestr : Field : Arg(starttimestr) : Get(starttimestr); |
15
|
|
|
|
|
|
|
my @endtimestr : Field : Arg(endtimestr) : Get(endtimestr); |
16
|
|
|
|
|
|
|
my @elapsedtime : Field : Arg(elapsedtime) : Get(elapsedtime); |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
1; |