view _test/temp.pl @ 278:4ddb27ff4a0b

core refactoring
author cin
date Mon, 04 Feb 2013 02:10:37 +0400
parents 8d36073411b1
children f116cd9fe7d9
line wrap: on
line source

#!/usr/bin/perl
use strict;

{
    package Foo;
    use IMPL::declare {
        base => [
            'IMPL::Object::Disposable' => undef
        ]
    };
}

use Time::HiRes qw(gettimeofday tv_interval);


use IMPL::lang;
use IMPL::require {
    AutoDispose => 'IMPL::Object::AutoDispose',
    DBSchema => 'IMPL::SQL::Schema'    
};

my $real = DBSchema->new( name => 'simple', version => 1);
my $proxy = AutoDispose->new($real);

print typeof($proxy),"\n";

my $t = [gettimeofday];

for (1..1000000) {
    $proxy->name;
}

print "proxy: ",tv_interval($t,[gettimeofday]),"\n";

$t = [gettimeofday];

for (1..1000000) {
    $real->name;
}

print "real:  ",tv_interval($t,[gettimeofday]),"\n";