File Coverage

blib/lib/Bryar/Frontend/CGI.pm
Criterion Covered Total %
statement 23 29 79.3
branch n/a
condition n/a
subroutine 8 12 66.6
pod 6 6 100.0
total 37 47 78.7


line stmt bran cond sub pod time code
1             package Bryar::Frontend::CGI;
2 4     4   785 use base 'Bryar::Frontend::Base';
  4         10  
  4         2556  
3 4     4   100 use 5.006;
  4         12  
  4         161  
4 4     4   20 use strict;
  4         7  
  4         115  
5 4     4   19 use warnings;
  4         6  
  4         203  
6 4     4   22 use Carp;
  4         47  
  4         307  
7             our $VERSION = '1.1';
8 4     4   14148 use CGI ();
  4         65947  
  4         1242  
9             my $cgi = new CGI;
10              
11             =head1 NAME
12              
13             Bryar::Frontend::CGI - Common Gateway Interface to Bryar
14              
15             =head1 DESCRIPTION
16              
17             This is a frontend to Bryar which is used when Bryar is being driven as
18             an ordinary CGI program.
19              
20             =cut
21              
22 0     0 1 0 sub obtain_url { $cgi->url() }
23 0     0 1 0 sub obtain_path_info { $cgi->path_info() }
24 0     0 1 0 sub obtain_params { map { $_ => $cgi->param($_) } $cgi->param }
  0         0  
25 0     0 1 0 sub get_header { my $self = shift; $cgi->http(shift) }
  0         0  
26 1     1 1 3 sub send_data { my $self = shift; binmode(STDOUT, ':utf8'); print "\n",@_ }
  1         10  
  1         248  
27 2     2 1 12 sub send_header { my ($self, $k, $v) = @_; print "$k: $v\n"; }
  2         523  
28              
29             1;
30              
31             =head1 LICENSE
32              
33             This module is free software, and may be distributed under the same
34             terms as Perl itself.
35              
36             =head1 AUTHOR
37              
38             Copyright (C) 2003, Simon Cozens C