File Coverage

blib/lib/Sledge/Plugin/Prototype.pm

Criterion	Covered	Total	%
statement	12	27	44.4
branch	0	2	0.0
condition	0	3	0.0
subroutine	4	8	50.0
pod			n/a
total	16	40	40.0

package Sledge::Plugin::Prototype;

use strict;
use vars qw($VERSION);
$VERSION = '0.03';

use HTML::Prototype;

sub import {
    my $class = shift;
    my $pkg = caller;
    no strict 'refs';
    *{"$pkg\::prototype"} = sub { $_[0]->{__prototype} ||= HTML::Prototype->new };
    *{"$pkg\::show_prototype_js"} = sub {
        my $self = shift;

        $self->r->content_type('text/javascript');
        $self->r->send_http_header;
        $self->r->print($HTML::Prototype::prototype);
        $self->finished(1);
    };
    $pkg->register_hook(
        BEFORE_DISPATCH => sub {
            my $self = shift;
            $self->tmpl->param(prototype=>$self->prototype)
                if ref ($self->tmpl) =~ /^Sledge::Template::TT/;
        } );
}

1;
__END__