File Coverage

blib/lib/Catalyst/Base.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 10 100.0


line stmt bran cond sub pod time code
1             package Catalyst::Base;
2 1     1   870 use Moose;
  1         4  
  1         5  
3 1     1   6676 BEGIN { extends 'Catalyst::Controller' }
4              
5             after 'BUILD' => sub {
6             my $self = shift;
7             warn(ref($self) . " is using the deprecated Catalyst::Base, update your application as this will be removed in the next major release");
8             };
9              
10 1     1   7311 no Moose;
  1         6  
  1         12  
11              
12             __PACKAGE__->meta->make_immutable;
13              
14             1;
15              
16             __END__
17              
18             =head1 NAME
19              
20             Catalyst::Base - Deprecated base class
21              
22             =head1 DESCRIPTION
23              
24             This used to be the base class for Catalyst Controllers. It
25             remains here for compatibility reasons, but its use is highly deprecated.
26              
27             If your application produces a warning, then please update your application to
28             inherit from L<Catalyst::Controller> instead.
29              
30             =head1 SEE ALSO
31              
32             L<Catalyst>, L<Catalyst::Controller>.
33              
34             =head1 AUTHORS
35              
36             Catalyst Contributors, see Catalyst.pm
37              
38             =head1 COPYRIGHT
39              
40             This library is free software. You can redistribute it and/or modify it under
41             the same terms as Perl itself.
42              
43             =cut