File Coverage

blib/lib/HTML/Widgets/NavMenu/Error/Redirect.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package HTML::Widgets::NavMenu::Error::Redirect;
2             $HTML::Widgets::NavMenu::Error::Redirect::VERSION = '1.1000';
3 11     11   63 use strict;
  11         19  
  11         266  
4 11     11   48 use warnings;
  11         18  
  11         246  
5              
6 11     11   55 use parent "HTML::Widgets::NavMenu::Error";
  11         17  
  11         52  
7              
8             sub CGIpm_perform_redirect
9             {
10 2     2 1 1071 my $self = shift;
11              
12 2         3 my $cgi = shift;
13              
14 2         5 print $cgi->redirect( $cgi->script_name() . $self->{-redirect_path} );
15 2         88 exit;
16             }
17              
18             1;
19              
20             __END__