File Coverage

blib/lib/Catalyst/Plugin/Flash/JSON.pm

Criterion	Covered	Total	%
statement	17	22	77.2
branch	0	2	0.0
condition	0	3	0.0
subroutine	6	8	75.0
pod	0	2	0.0
total	23	37	62.1

use 5.008001; use strict; use warnings;

package # hide from PAUSE for now
	Catalyst::Plugin::Flash::JSON;

our $VERSION = '0.002';

use JSON::MaybeXS;
my $jx = JSON::MaybeXS->new->ascii;

sub flash_to_cookie { shift; $jx->encode( \@_ ) }

sub flash_from_cookie {
	local $@;
	my $data = $_[1];
	$data && $data =~ /^\[/ && eval { $data = $jx->decode( $data ) } ? @$data : ();
}

# use Catalyst 5.80004 ();
use Moose::Role;
with 'Catalyst::Plugin::Flash';
no Moose::Role;

1;