| line |
true |
false |
branch |
|
31
|
0 |
0 |
if @_ |
|
32
|
0 |
0 |
if $$self{'symbol'} |
|
41
|
0 |
0 |
unless (@_) |
|
57
|
0 |
0 |
unless @_ |
|
61
|
0 |
0 |
if lc $param eq 'cboe' |
|
68
|
0 |
0 |
unless $$self{'symbol'} |
|
69
|
0 |
0 |
if ($$self{'source'} eq 'cboe') { } |
|
93
|
0 |
0 |
if not defined $exp or $exp < 0 |
|
95
|
0 |
0 |
if length $exp < 4 and $exp > $#{$$self{'data'};} |
|
97
|
0 |
0 |
if length $exp > 3 and not length($exp) =~ /^[68]$/ |
|
100
|
0 |
0 |
if length $exp < 4 |
|
103
|
0 |
0 |
if length $exp == 6 and $exp == substr($$_{'exp'}, 0, 6) |
|
104
|
0 |
0 |
if length $exp == 8 and $exp == $$_{'exp'} |
|
114
|
0 |
0 |
if not defined $exp or $exp < 0 |
|
115
|
0 |
0 |
if length $exp < 4 and $exp > $#{$$self{'data'};} |
|
116
|
0 |
0 |
if length $exp > 3 and not length($exp) =~ /^[68]$/ |
|
119
|
0 |
0 |
if length $exp < 4 |
|
121
|
0 |
0 |
if length $exp == 6 and $exp == substr($$_{'exp'}, 0, 6) |
|
122
|
0 |
0 |
if length $exp == 8 and $exp == $$_{'exp'} |
|
131
|
0 |
0 |
if $exp < 0 |
|
132
|
0 |
0 |
unless defined $exp and $exp <= $#{$self->data;} |
|
144
|
0 |
0 |
if $exp < 0 |
|
145
|
0 |
0 |
unless defined $exp and $exp <= $#{$self->data;} |
|
157
|
0 |
0 |
if $exp < 0 |
|
158
|
0 |
0 |
unless defined $exp and $exp <= $#{$self->data;} |
|
170
|
0 |
0 |
if $exp < 0 |
|
171
|
0 |
0 |
unless defined $exp and $exp <= $#{$self->data;} |
|
184
|
0 |
0 |
unless $sym |
|
192
|
0 |
0 |
if (lc $$o{'symbol'} eq lc $sym) |
|
198
|
0 |
0 |
if (lc $$o{'symbol'} eq lc $sym) |
|
206
|
0 |
0 |
if ($opt) |
|
218
|
0 |
0 |
if (defined $stat) |
|
228
|
0 |
0 |
if defined $stat |
|
236
|
0 |
0 |
if defined $stat |
|
244
|
0 |
0 |
if defined $stat |
|
281
|
0 |
0 |
if $self->proxy |
|
283
|
0 |
0 |
unless $self->symbol |
|
289
|
0 |
0 |
unless $$self{'success'} |
|
293
|
0 |
0 |
if $content =~ /there are no all markets results for/i |
|
332
|
0 |
0 |
if ($optmonths[0] eq 'start') { } |
|
338
|
0 |
0 |
if ($text =~ /view by expiration/i) |
|
345
|
0 |
0 |
unless /(\w{3,9})\s+(\d{2,4})/ |
|
346
|
0 |
0 |
if (length $1 == 3) { } |
|
348
|
0 |
0 |
$2 < 100 ? : |
|
351
|
0 |
0 |
$2 < 100 ? : |
|
370
|
0 |
0 |
unless $$self{'success'} |
|
402
|
0 |
0 |
if $tag =~ m[/html]i or not $tag |
|
405
|
0 |
0 |
if $tag =~ m[/table]i and $mode =~ /gputdata/ |
|
415
|
0 |
0 |
if $tag =~ m[/html]i |
|
416
|
0 |
0 |
if $tag =~ m[/tr]i |
|
420
|
0 |
0 |
if ($newrow) |
|
421
|
0 |
0 |
if ($mode =~ /start|gcalldata/ and $text =~ /call options|put options/i) { } |
|
|
0 |
0 |
elsif ($mode eq 'gcalldate') { } |
|
|
0 |
0 |
elsif ($mode eq 'gputdate') { } |
|
|
0 |
0 |
elsif ($mode eq 'gcallheaders' and not @callheaders or $mode eq 'gputheaders' and not @putheaders) { } |
|
|
0 |
0 |
elsif ($mode eq 'gcalldata' or $mode eq 'gcallheaders' and @callheaders) { } |
|
|
0 |
0 |
elsif ($mode eq 'gputdata' or $mode eq 'gputheaders' and @putheaders) { } |
|
424
|
0 |
0 |
if $text =~ /call options/i |
|
425
|
0 |
0 |
if $text =~ /put options/i |
|
439
|
0 |
0 |
unless $text =~ /strike/i |
|
443
|
0 |
0 |
unless $text |
|
464
|
0 |
0 |
if ($mode =~ /gcalldate|gputdate/) { } |
|
|
0 |
0 |
elsif ($mode =~ /gcallheaders|gputheaders/) { } |
|
|
0 |
0 |
elsif ($mode =~ /gcalldata|gputdata/) { } |
|
465
|
0 |
0 |
if ($text and not $expdate) |
|
470
|
0 |
0 |
if (length $1 == 3) { } |
|
478
|
0 |
0 |
if $mode eq 'gcalldate' |
|
479
|
0 |
0 |
if $mode eq 'gputdate' |
|
484
|
0 |
0 |
if $mode eq 'gcallheaders' |
|
486
|
0 |
0 |
if $mode eq 'gputheaders' |
|
491
|
0 |
0 |
if ($text =~ /(up|down)\s+(\d*.?\d*)/i) |
|
495
|
0 |
0 |
if $1 =~ /down/i |
|
499
|
0 |
0 |
if ($mode eq 'gcalldata') { } |
|
514
|
0 |
0 |
unless (exists $$calldata[0]{'symbol'}) |
|
518
|
0 |
0 |
unless (exists $$putdata[0]{'symbol'}) |
|
529
|
0 |
0 |
if ($$_{'exp'} == $expdate) |
|
578
|
0 |
0 |
if $self->proxy |
|
580
|
0 |
0 |
unless $self->symbol |
|
594
|
0 |
0 |
unless $q->success |
|
605
|
0 |
0 |
unless $q->success |
|
633
|
0 |
0 |
if ($st->get_trimmed_text('/td') =~ /calls/i) |
|
639
|
0 |
0 |
if $tag =~ m[/tr]i |
|
642
|
0 |
0 |
if ($text =~ /puts/i) |
|
646
|
0 |
0 |
if ($mode eq 'calls') { } |
|
673
|
0 |
0 |
if $tag =~ m[/table] |
|
681
|
0 |
0 |
if $tag =~ m[/tr]i |
|
683
|
0 |
0 |
if $text =~ /\[img\]/i |
|
686
|
0 |
0 |
if ($mode eq 'start' and $text =~ /(\d{2} \w{3}) (\d{1,5}\.\d{2}) \((\w{1,4}) (\w{2})-(\w)\)/) { } |
|
|
0 |
0 |
elsif ($mode eq 'call' and $text =~ /(\d{2} \w{3}) (\d{1,5}\.\d{2}) \((\w{1,4}) (\w{2})-\w\)/) { } |
|
|
0 |
0 |
elsif ($mode eq 'call') { } |
|
|
0 |
0 |
elsif ($mode eq 'put') { } |
|
698
|
0 |
0 |
unless ($expirations{$exp}) |
|
708
|
0 |
0 |
if (not $$self{'success'}) { } |
|
728
|
0 |
0 |
if $tag =~ m[/table]i |
|
730
|
0 |
0 |
if ($text =~ m[expiration date\s*(\d{2})/(\d{2})/(\d{4})]i) |
|
742
|
0 |
0 |
unless $exp |
|
760
|
0 |
0 |
unless ($tempdata{$exp}{'exp'}) |