File Coverage

blib/lib/Kelp/Module/FlashMessage.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch	3	4	75.0
condition	2	2	100.0
subroutine	5	6	83.3
pod	1	1	100.0
total	28	32	87.5

use strict;
use warnings;
package Kelp::Module::FlashMessage;

our $VERSION = 0.04;

use parent 'Kelp::Module';

sub build {
	my ( $self, %args ) = @_;
	my $key = $args{'key'} || 'km::flash';

	$self->register(
		flash_message => sub {
			my ($self, $value) = @_;
			if( @_ == 1 ) {
				$value = delete $self->req->env->{'psgix.session'}->{$key};
			}
			elsif( @_ >= 2 ) {
				$self->req->env->{'psgix.session'}->{$key} = $value;
			}
			return $value;
		},

		flash_message_present => sub {
			my $self = shift;
			return exists $self->req->env->{'psgix.session'}->{$key};
		}
	);
}

1;

__END__