blib/lib/Outthentic/DSL/Context/Default.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
statement | 6 | 6 | 100.0 |
branch | n/a | ||
condition | n/a | ||
subroutine | 3 | 3 | 100.0 |
pod | 0 | 3 | 0.0 |
total | 9 | 12 | 75.0 |
line | stmt | bran | cond | sub | pod | time | code |
---|---|---|---|---|---|---|---|
1 | package Outthentic::DSL::Context::Default; | ||||||
2 | |||||||
3 | |||||||
4 | 2 | 2 | 0 | 13 | sub new { bless {}, __PACKAGE__ } | ||
5 | |||||||
6 | sub change_context { | ||||||
7 | |||||||
8 | 1 | 1 | 0 | 2 | my $self = shift; | ||
9 | 1 | 1 | my $cur_ctx = shift; # current search context | ||||
10 | 1 | 1 | my $orig_ctx = shift; # original search context | ||||
11 | 1 | 2 | my $succ = shift; # latest succeeded items | ||||
12 | |||||||
13 | 1 | 2 | return $cur_ctx; | ||||
14 | } | ||||||
15 | |||||||
16 | 1 | 0 | sub update_stream {} | ||||
17 | |||||||
18 | 1; | ||||||
19 |