File Coverage

blib/lib/Acme/Web20/Validator/Rule/UseCatalyst.pm
Criterion Covered Total %
statement 13 13 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1             #$Id: UseCatalyst.pm,v 1.1 2005/11/14 03:39:09 naoya Exp $
2             package Acme::Web20::Validator::Rule::UseCatalyst;
3 2     2   1012 use strict;
  2         2  
  2         63  
4 2     2   8 use warnings;
  2         5  
  2         53  
5 2     2   8 use base qw (Acme::Web20::Validator::Rule);
  2         3  
  2         284  
6              
7             __PACKAGE__->name('Appears to be built using Catalyst?');
8              
9             sub validate {
10 1     1 0 2 my ($self, $res) = @_;
11 1         1 my $bool = 0;
12 1 50       5 $bool = 1 if ($res->headers->header('X-Catalyst'));
13 1         62 $self->is_ok($bool);
14             }
15              
16             1;