#!/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;