view release on metacpan or  search on metacpan

eg/kiyoshi.pl  view on Meta::CPAN

#!/usr/bin/env perl

use utf8;
use strict;
use warnings;
use Data::Dumper;
use Acme::Kiyoshi::Array;

my @ary = ();

push @ary, "ズン";
push @ary, "ズン";
push @ary, "ズン";

lib/Acme/Kiyoshi/Array.pm  view on Meta::CPAN

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);