File Coverage

blib/lib/Sledge/Plugin/Notice.pm

Criterion	Covered	Total	%
statement	17	30	56.6
branch	1	8	12.5
condition			n/a
subroutine	5	8	62.5
pod			n/a
total	23	46	50.0

package Sledge::Plugin::Notice;

use strict;
use warnings;

our $VERSION = '0.03';

use Carp ();

sub import {
    my $class = shift;
    my $caller = caller;
    unless ($caller->isa('Sledge::Pages::Base')) {
        Carp::carp('use it from Sledge::Pages.');
        return;
    }
    my $sess_key = __PACKAGE__.'::notice';
    $caller->register_hook(
        AFTER_DISPATCH => sub {
            my $self = shift;
            my $notice = $self->notice;
            $self->tmpl->param(notice => $notice) if $notice;
        },
        AFTER_OUTPUT => sub {
            my $self = shift;
            $self->session->remove($sess_key);
        },
    );
    no strict 'refs';
    *{"$caller\::notice"} = sub {
        my $self = shift;
        if (@_ == 0) {
            return $self->session->param($sess_key);
        } elsif (@_ == 1) {
            $self->session->param($sess_key => $_[0]);
        }
    };
}

1;
__END__