File Coverage

blib/lib/CGI/Application/Plugin/HTMLPrototype.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch			n/a
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	20	22	90.9

package CGI::Application::Plugin::HTMLPrototype;

use HTML::Prototype;

use strict;
use vars qw($VERSION @EXPORT $PROTOTYPE);

require Exporter;

@EXPORT = qw(
    prototype
);
sub import { goto &Exporter::import }

$VERSION = '0.20';


##############################################
###
###   prototype
###
##############################################
#
# Get an HTML::Prototype object.  The same object
# will be returned everytime this method is called.
#
sub prototype {
    my $class = shift;

    $PROTOTYPE ||= HTML::Prototype->new;
    return $PROTOTYPE;
}

1;
__END__