package Factory;
sub create {
my $class = shift;
my $obj = 'Base::' . shift;
return $obj->new();
}
package Base;
sub new {
my $class = shift;
my $self = { thing => 'foo' };
return bless $self,$class;
}
package Base::Bold;
use base 'Base';
sub output {
my $self = shift;
return '<b>' . $self->{thing} . '</b>';
}
package Base::Italic;
use base 'Base';
sub output {
my $self = shift;
return '<i>' . $self->{thing} . '</i>';
}
package main;
my @things = (
Factory->create('Bold'),
Factory->create('Italic'),
);
print $_->output,$/ for @things;
And an HTML resume
is different than a PDF resume: HTML and PDF are
adjectives to the noun resume - an adjective qualifies,
distinquishes, and specifies - hence, an HTML resume
is one kind of resume (Resume::HTML), and a PDF resume is
another kind (Resume::PDF). I you don't like this, then how
about naming them Resume::AsHTML and Resume::AsPDF
instead? ;)
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
|