view _test/temp.pl @ 425:c27434cdd611 ref20150831

sync
author cin
date Tue, 03 Apr 2018 19:30:01 +0300
parents 87af445663d7
children 09e0086a82a7
line wrap: on
line source

#!/usr/bin/perl
use strict;
use v5.10;
use Carp;
use Time::HiRes qw(gettimeofday tv_interval);
use Scalar::Util qw(blessed refaddr);
use YAML::XS qw(Dump Load);
use Data::Dumper;
use URI;

package Foo;
use base qw(IMPL::Object::_Base);

sub new {
	my $instance = bless {}, shift;
	$instance->__construct(@_);
	return $instance;
}

sub CTOR {
	say "Foo @_";
}

package Foo2;
use base qw(Foo);

sub CTOR {
	say "Foo2 @_";	
}

package Bar;

sub CTOR {
	say "Bar";
}

package Baz;
use base qw(Foo2 Bar);

sub CTOR {
	say "Baz";
}



package main;

my $t = [gettimeofday];

new Baz("-hi!");

say tv_interval($t);

1;