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