# $Id: P50.pm 115 2006-04-10 23:41:37Z fil $
package t::P50;
use strict;
sub DEBUG () { 0 }
sub new
{
my( $package, %args ) = @_;
DEBUG and warn "new";
return bless { %args }, $package;
}
sub buildthing
{
my( $self, %args ) = @_;
return Duffus->new( %args );
}
################################################################
package Duffus;
use strict;
sub new
{
my $package = shift;
return bless { @_ }, $package;
}
sub number
{
my( $self ) = @_;
return $self->{number};
}
1;