#!/usr/bin/perl
use strict;
use warnings;

package Thing;
use Quantum::Superpositions;

sub new { 
	my ($class,$txt) = @_;
	return bless \$txt, $class;
}

sub txt {
	my ($self) = @_;
	return $$self;
}

my @allowed = qw[
	findActor
	addActor
	findMovie
	addMovie
];

sub AUTOLOAD {
	my ($self, @args) = @_;
	use vars '$AUTOLOAD';
	(my $funcname = $AUTOLOAD) =~ s/.*:://;
	unless ($funcname eq any(@allowed)) {
		die "don't know how to $funcname on ", $self->txt, $/;
	}
	warn "doing $funcname on ", $self->txt, " with @args$/";
}

sub DESTROY { }   # for AUTOLOAD happiness 

1;

package main;
my $b = Thing->new("bob");
my $c = Thing->new("ralph");

$b->findActor("quincy");
$c->addActor("mary");
$b->doActor("what?");

__END__
doing findActor on bob with quincy
doing addActor on ralph with mary
don't know how to doActor on bob