File Coverage

test-lib/Car/Factory.pm

Criterion	Covered	Total	%
statement	22	27	81.4
branch	2	10	20.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	2	0.0
total	32	49	65.3

package Car::Factory;

use strict;

use Class::Interface;

&extends('Car::AbstractFactory');

use Car::Fiat;
use Car::Ford;
use Car::Mercedes;

# not using Car::BMW - it requires Class::AccessorMaker which you may
# not have.

sub new {
  return bless( {}, ref( $_[0] ) || $_[0] );
}

sub createCar {
  my ( $self, $car ) = @_;

  my $created;
  if ( lc($car) eq "fiat" ) {
    $created = Car::Fiat->new();

  } elsif ( lc($car) eq "ford" ) {
    $created = Car::Ford->new();

  } elsif ( lc($car) eq "mercedes" ) {
    $created = Car::Mercedes->new();

  } elsif ( lc($car) eq "bmw" ) {
    eval qq{ use Car::BMW };
    $created = Car::BMW->new() unless $@;

  } else {
    die "Cannot build cars of type $car (yet)";
  }

  $self->rememberCreatedCar($car);

  return $created;
}

1;