| DesignPattern-Factory documentation | Contained in the DesignPattern-Factory distribution. |
DesignPattern::Factory::ConcreteCreator - a participant in the Perl implementation of the Factory Method.
DesignPattern::Factory::ConcreteCreator overrides the factory method it inherits from DesignPattern::Factory::Creator to return an instance of a ConcreteProduct.
Returns a new ConcreteProduct.
Nigel Wetters (nwetters@cpan.org)
Copyright (c) 2001, Nigel Wetters. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
| DesignPattern-Factory documentation | Contained in the DesignPattern-Factory distribution. |
package DesignPattern::Factory::ConcreteCreator; $VERSION = '0.01'; use strict; use Carp; # nice errors use vars qw( $VERSION @ISA ); use DesignPattern::Factory::Creator; @ISA = qw ( DesignPattern::Factory::Creator ); sub FactoryMethod { use DesignPattern::Factory::ConcreteProduct; return DesignPattern::Factory::ConcreteProduct->new; } 1;