File Coverage

blib/lib/Blosxom/Plugin/Web.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	2	2	100.0
total	27	29	93.1

package Blosxom::Plugin::Web;
use strict;
use warnings;
use parent 'Blosxom::Plugin';

__PACKAGE__->load_components( 'DataSection' );

my $request;

sub request {
    $request ||= do {
        require Blosxom::Plugin::Web::Request;
        Blosxom::Plugin::Web::Request->new;
    };
}

BEGIN { *req = \&request }

sub end {
    my $class = shift;
    undef $request if $request;
    $class->SUPER::end;
}

1;

__END__