File Coverage

blib/lib/Catalyst/Plugin/Observe.pm

Criterion	Covered	Total	%
statement	9	60	15.0
branch			n/a
condition			n/a
subroutine	3	20	15.0
pod	17	17	100.0
total	29	97	29.9

line	stmt	sub	pod	time	code
1					package Catalyst::Plugin::Observe;
2
3	1	1		884	use strict;
	1			2
	1			44
4	1	1		5	use base 'Class::Publisher';
	1			2
	1			898
5
6					our $VERSION='0.02';
7
8					{
9					my @observable = qw[
10					dispatch
11					finalize
12					finalize_body
13					finalize_cookies
14					finalize_error
15					finalize_headers
16					forward
17					prepare
18					prepare_action
19					prepare_body
20					prepare_connection
21					prepare_cookies
22					prepare_headers
23					prepare_parameters
24					prepare_path
25					prepare_request
26					prepare_uploads
27					];
28
29	1	1		6991	no strict 'refs';
	1			3
	1			85
30
31					for my $observe ( @observable ) {
32
33	0	0	1		eval sprintf( <<'', ($observe) x 3 );
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0	0	1
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
	0
34					sub %s {
35					my $c = shift;
36					$c->notify_subscribers( %s, @_ );
37					return $c->NEXT::%s(@_);
38					}
39
40					}
41					}
42
43					1;
44
45					__END__