File Coverage

/.cpan/build/Factory-PxWIll/blib/lib/DesignPattern/Factory/ConcreteProduct.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package DesignPattern::Factory::ConcreteProduct;
2             $VERSION = '0.01';
3 2     2   10 use strict;
  2         4  
  2         61  
4 2     2   9 use Carp; # nice errors
  2         3  
  2         108  
5 2     2   9 use vars qw( $VERSION @ISA );
  2         3  
  2         81  
6 2     2   981 use DesignPattern::Factory::Product;
  2         6  
  2         102  
7             @ISA = qw ( DesignPattern::Factory::Product );
8              
9             # nothing much here - add more methods to superclass, and override here
10              
11             1;
12             =head1 NAME
13              
14             DesignPattern::Factory::ConcreteProduct - a participant in the Perl implementation of the Factory Method.
15              
16             =head1 DESCRIPTION
17              
18             Implements the DesignPattern::Factory::Product interface.
19              
20             =head1 AUTHOR
21              
22             Nigel Wetters (nwetters@cpan.org)
23              
24             =head1 COPYRIGHT
25              
26             Copyright (c) 2001, Nigel Wetters. All Rights Reserved. This module is free software.
27             It may be used, redistributed and/or modified under the same terms as Perl itself.
28              
29             =cut