File Coverage

lib/Mojolicious/Plugin/UserMessages/Message.pm
Criterion Covered Total %
statement 14 14 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 19 21 90.4


line stmt bran cond sub pod time code
1             package Mojolicious::Plugin::UserMessages::Message;
2             {
3             $Mojolicious::Plugin::UserMessages::Message::VERSION = '0.511';
4             }
5              
6 2     2   11 use Carp;
  2         4  
  2         201  
7 2     2   13 use strict;
  2         4  
  2         497  
8              
9             our $AUTOLOAD;
10              
11             sub new {
12 3     3 0 7 my $class = shift;
13 3         17 my %args = @_;
14              
15 3         21 return bless( \%args, $class);
16             }
17              
18             sub AUTOLOAD {
19 6     6   99 my $self = shift;
20              
21 6         10 my $method = $AUTOLOAD;
22 6         27 $method =~ s/.*://; # strip fully-qualified portion
23              
24 6 50       16 return if $method eq 'DESTROY';
25              
26 6         28 return $self->{$method};
27             }
28              
29             1;