#!/usr/bin/perl -w
use strict;
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
use Aspect qw(advice calls returns around) ;
my $aspect = advice(
		calls(qr/^(Quantum|main)::(.*)/), 
  		sub { printf "calling -> %s\n", $::thisjp->sub }
  	);
$aspect->enable;
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
use Quantum::Entanglement;
sub foo {
	my $die = entangle( 1=>1, 1=>2, 1=>3, 1=>4, 1=>5, 1=>6 );
	print $die ; print "\n" ;
}

foo();

# print:
# 
# calling -> main::foo
# calling -> main::entangle
# calling -> Quantum::Entanglement::_new
# calling -> Quantum::Entanglement::(""
# calling -> Quantum::Entanglement::_normalise
# 5
# calling -> Quantum::Entanglement::DESTROY
# calling -> Quantum::Entanglement::_rationalise_states
# calling -> Quantum::Entanglement::_unravel
# foo();