File Coverage

blib/lib/HTML/Mason/Resolver.pm
Criterion Covered Total %
statement 21 27 77.7
branch n/a
condition n/a
subroutine 7 10 70.0
pod 2 2 100.0
total 30 39 76.9


line stmt bran cond sub pod time code
1             # Copyright (c) 1998-2005 by Jonathan Swartz. All rights reserved.
2             # This program is free software; you can redistribute it and/or modify it
3             # under the same terms as Perl itself.
4              
5             package HTML::Mason::Resolver;
6             $HTML::Mason::Resolver::VERSION = '1.59';
7 33     33   230 use strict;
  33         73  
  33         991  
8 33     33   162 use warnings;
  33         61  
  33         994  
9              
10 33     33   165 use HTML::Mason::Exceptions( abbr => ['param_error', 'virtual_error'] );
  33         69  
  33         258  
11              
12 33     33   239 use Params::Validate qw(:all);
  33         96  
  33         6680  
13             Params::Validate::validation_options( on_fail => sub { param_error join '', @_ } );
14              
15 33     33   277 use HTML::Mason::ComponentSource;
  33         66  
  33         857  
16              
17 33     33   746 use Class::Container;
  33         4139  
  33         909  
18 33     33   174 use base qw(Class::Container);
  33         66  
  33         7764  
19              
20             # Returns HTML::Mason::ComponentSource object
21             sub get_info {
22 0     0 1   shift->_virtual;
23             }
24              
25             sub glob_path {
26 0     0 1   shift->_virtual;
27             }
28              
29             sub _virtual
30             {
31 0     0     my $self = shift;
32              
33 0           my $sub = (caller(1))[3];
34 0           $sub =~ s/.*::(.*?)$/$1/;
35 0           virtual_error "$sub is a virtual method and must be overridden in " . ref($self);
36             }
37              
38             1;
39              
40             __END__