File Coverage

blib/lib/CGI/Portal/Scripts/Header.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 17 70.5


line stmt bran cond sub pod time code
1             package CGI::Portal::Scripts::Header;
2             # Copyright (c) 2008 Alexander David P. All rights reserved.
3             #
4             # Code for header
5              
6 1     1   5 use strict;
  1         2  
  1         36  
7              
8 1     1   530 use CGI::Portal::Scripts;
  1         3  
  1         30  
9              
10 1     1   8 use vars qw(@ISA $VERSION);
  1         1  
  1         118  
11              
12             $VERSION = "0.12";
13              
14             @ISA = qw(CGI::Portal::Scripts);
15             1;
16              
17             sub launch {
18 0     0 0   my ($self, $e) = @_;
19              
20             # Assign tmpl
21 0           $self->{'tmpl_vars'}{'result'} = $e->{'tmpl_vars'}{'result'};
22              
23             # Assign tmpl
24 0           $self->assign_tmpl($e->{'conf'}{'header_html'});
25             }