File Coverage

blib/lib/HTML/Mason/Plugin/Context.pm
Criterion Covered Total %
statement 27 41 65.8
branch 0 4 0.0
condition n/a
subroutine 15 23 65.2
pod n/a
total 42 68 61.7


line stmt bran cond sub pod time code
1             package HTML::Mason::Plugin::Context;
2             $HTML::Mason::Plugin::Context::VERSION = '1.59';
3 32     32   211 use strict;
  32         63  
  32         905  
4 32     32   147 use warnings;
  32         65  
  32         1452  
5              
6             #------------------------------------------------------------
7              
8             package HTML::Mason::Plugin::Context::StartRequest;
9             $HTML::Mason::Plugin::Context::StartRequest::VERSION = '1.59';
10 32     32   165 use base qw(HTML::Mason::Plugin::Context);
  32         67  
  32         7840  
11              
12 8     8   86 sub request { $_[0]->[0] }
13             sub args {
14 0 0   0   0 if (wantarray) {
15 0         0 return @{$_[0]->[1]};
  0         0  
16             } else {
17 0         0 return $_[0]->[1];
18             }
19             }
20              
21             #------------------------------------------------------------
22              
23             package HTML::Mason::Plugin::Context::EndRequest;
24             $HTML::Mason::Plugin::Context::EndRequest::VERSION = '1.59';
25 32     32   260 use base qw(HTML::Mason::Plugin::Context);
  32         76  
  32         8465  
26              
27 8     8   64 sub request { $_[0]->[0] }
28             sub args {
29 0 0   0   0 if (wantarray) {
30 0         0 return @{$_[0]->[1]};
  0         0  
31             } else {
32 0         0 return $_[0]->[1];
33             }
34             }
35 1     1   14 sub output { $_[0]->[2] }
36 0     0   0 sub wantarray { $_[0]->[3] }
37 2     2   19 sub result { $_[0]->[4] }
38 1     1   14 sub error { $_[0]->[5] }
39              
40             #------------------------------------------------------------
41              
42             package HTML::Mason::Plugin::Context::StartComponent;
43             $HTML::Mason::Plugin::Context::StartComponent::VERSION = '1.59';
44 32     32   276 use base qw(HTML::Mason::Plugin::Context);
  32         67  
  32         5804  
45              
46 0     0   0 sub request { $_[0]->[0] }
47 41     41   283 sub comp { $_[0]->[1] }
48 0     0   0 sub args { $_[0]->[2] }
49              
50             #------------------------------------------------------------
51              
52             package HTML::Mason::Plugin::Context::EndComponent;
53             $HTML::Mason::Plugin::Context::EndComponent::VERSION = '1.59';
54 32     32   238 use base qw(HTML::Mason::Plugin::Context);
  32         76  
  32         7104  
55              
56 0     0   0 sub request { $_[0]->[0] }
57 43     43   259 sub comp { $_[0]->[1] }
58 0     0   0 sub args { $_[0]->[2] }
59 0     0   0 sub wantarray { $_[0]->[3] }
60 4     4   39 sub result { $_[0]->[4] }
61 2     2   16 sub error { $_[0]->[5] }
62              
63             #------------------------------------------------------------
64              
65             1;
66              
67             __END__