line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#-*- Mode: CPerl -*- |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
## File: DDC::Concordance.pm |
4
|
|
|
|
|
|
|
## Author: Bryan Jurish |
5
|
|
|
|
|
|
|
## Description: |
6
|
|
|
|
|
|
|
## + DDC Query utilities: top-level |
7
|
|
|
|
|
|
|
##====================================================================== |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
package DDC::Concordance; |
10
|
|
|
|
|
|
|
#require 5.10.0; ##-- for // operator : dependency REMOVED for DDC::Concordance v0.22 |
11
|
26
|
|
|
26
|
|
113591
|
use DDC::HitList; |
|
26
|
|
|
|
|
66
|
|
|
26
|
|
|
|
|
705
|
|
12
|
26
|
|
|
26
|
|
151
|
use DDC::Hit; |
|
26
|
|
|
|
|
64
|
|
|
26
|
|
|
|
|
475
|
|
13
|
26
|
|
|
26
|
|
13400
|
use DDC::Client; |
|
26
|
|
|
|
|
528
|
|
|
26
|
|
|
|
|
980
|
|
14
|
26
|
|
|
26
|
|
11443
|
use DDC::Client::Distributed; |
|
26
|
|
|
|
|
69
|
|
|
26
|
|
|
|
|
816
|
|
15
|
26
|
|
|
26
|
|
9135
|
use DDC::Format; |
|
26
|
|
|
|
|
70
|
|
|
26
|
|
|
|
|
782
|
|
16
|
26
|
|
|
26
|
|
10300
|
use DDC::Format::Text; |
|
26
|
|
|
|
|
66
|
|
|
26
|
|
|
|
|
786
|
|
17
|
26
|
|
|
26
|
|
10682
|
use DDC::Format::Kwic; |
|
26
|
|
|
|
|
73
|
|
|
26
|
|
|
|
|
947
|
|
18
|
26
|
|
|
26
|
|
10457
|
use DDC::Format::Dumper; |
|
26
|
|
|
|
|
71
|
|
|
26
|
|
|
|
|
810
|
|
19
|
26
|
|
|
26
|
|
10662
|
use DDC::Format::Raw; |
|
26
|
|
|
|
|
68
|
|
|
26
|
|
|
|
|
734
|
|
20
|
26
|
|
|
26
|
|
161
|
use strict; |
|
26
|
|
|
|
|
45
|
|
|
26
|
|
|
|
|
1378
|
|
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
##====================================================================== |
23
|
|
|
|
|
|
|
## Globals |
24
|
|
|
|
|
|
|
our $VERSION = '0.49'; ##-- for ddc >= v2.0.21; fixes for ddc >= 2.0.38 |
25
|
|
|
|
|
|
|
our @ISA = qw(); |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
1; ##-- be happy |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
__END__ |