File Coverage

blib/lib/Acme/Kiyoshi/Array.pm

Criterion	Covered	Total	%
statement	10	15	66.6
branch	0	2	0.0
condition	0	3	0.0
subroutine	4	5	80.0
pod			n/a
total	14	25	56.0

package Acme::Kiyoshi::Array;

use utf8;
use strict;
use warnings;

our $VERSION = "0.02";

BEGIN {
    *CORE::GLOBAL::push = sub(\@@) {
		my ($array, $value) = @_;
        my $res = CORE::push(@$array, $value);

		if (scalar(@$array) >= 5 && join('', @$array[-5..-1]) =~ /ズンズンズンズンドコ/) {
        	$res = CORE::push(@$array, "キ・ヨ・シ！");
		}

        return $res;
    };
}

1;
__END__