File Coverage

blib/lib/A1z/Html.pm
Criterion Covered Total %
statement 12 17 70.5
branch n/a
condition n/a
subroutine 4 6 66.6
pod 0 3 0.0
total 16 26 61.5


line stmt bran cond sub pod time code
1 1     1   71532 use strict;
  1         2  
  1         30  
2 1     1   5 use warnings;
  1         2  
  1         45  
3             package A1z::Html;
4 1     1   7 use vars qw($NAME);
  1         1  
  1         201  
5              
6             # ABSTRACT: Web Utilities
7              
8 0     0 0 0 sub NAME { my $self = shift; $NAME = "Fast and Easy Web Apps"; return $NAME; }
  0         0  
  0         0  
9              
10             our $VERSION = '0.002';
11              
12             sub new {
13 1     1 0 82 my $class = shift;
14 1         3 my $self = bless { @_ }, $class;
15 1         3 return $self;
16             }
17              
18             sub welcome {
19 0     0 0   print qq{Content-Type: text/html;charset=utf-8\n\n};
20 0           print qq{Welcome};
21             }
22              
23             1;