view release on metacpan or  search on metacpan

t/06-aux-utility.t  view on Meta::CPAN

use strict;
no warnings 'once';
if ($] > 5.020){
    eval 'use Test::More skip_all => "This perl version is too modern( >= 5.020 )"';
    exit;
}
eval 'use Test::More tests => 6+6;';
use warnings;
no warnings 'once';
our $msg;
sub tt(&);
sub tt(&){
    my $sub = shift;
    my $s = ref_mem_safe( $sub );
    $msg = $s;
    return ($s)if $s;
    return undef;
}

my $a1 = [];
ok(! ref_lost_memory([]));
ok(! ref_lost_memory([[]]));

t/47-mem-safe-AMF3.t  view on Meta::CPAN

# vim: et ts=8 sw=4 sts=4
use lib 't';
use ExtUtils::testlib;
use Storable::AMF3 qw(freeze thaw ref_lost_memory ref_clear deparse_amf);
use Scalar::Util qw(refaddr);
use GrianUtils qw(ref_mem_safe loose $msg);
use strict;
use warnings;
no warnings 'once';
sub tt(&);
sub loose(&);

my @item;
push @item, GrianUtils->my_items($_) for qw(t/AMF0 t/AMF3);

my @objs      = grep !ref_lost_memory( $_->{obj} ), @item;
my @recurrent = grep ref_lost_memory( $_->{obj} ),  @item;

my ( $name, $obj, $image_amf3, $image_amf0 );

my $total = 1 * @item + @objs * 6 + @recurrent;

t/GrianUtils.pm  view on Meta::CPAN

use Exporter qw(import);
use Carp qw(croak);
use warnings 'all';

our ( @EXPORT, @EXPORT_OK );
our $msg;
@EXPORT_OK = qw(ref_mem_safe my_readdir my_readfile loose $msg total_sv);

*total_sv = \&Storable::AMF::Util::total_sv;

sub loose(&) {
    my $sub  = shift;
    my $have = total_sv();
    my $delta;

    {
        my $c;
        &$sub() for 1;
    };
    return $delta unless $delta = $msg = total_sv() - $have;