fix new issue

src/abstract-factory/perl/Factory/FactoryA.pm

@@ -4,20 +4,20 @@ use parent Factory;
 use strict;
 use warnings;
 
-use Product::ProductA::ProductA1;
-use Product::ProductB::ProductB1;
+use ProductA::ProductA1;
+use ProductB::ProductB1;
 
 sub new {
 	my ($class, $args) = @_;
 	return $class->SUPER::new($args);
 }
 
 sub createProductA {
-	return Product::ProductA::ProductA1->new({name => "FA_A#1"});
+	return ProductA::ProductA1->new({name => "FA_A#1"});
 }
 
 sub createProductB {
-	return Product::ProductB::ProductB1->new({name => "FA_B#1"});
+	return ProductB::ProductB1->new({name => "FA_B#1"});
 }
 
 1;

src/abstract-factory/perl/Factory/FactoryB.pm

@@ -4,20 +4,20 @@ use parent Factory;
 use strict;
 use warnings;
 
-use Product::ProductA;
-use Product::ProductB;
+use ProductA::ProductA2;
+use ProductB::ProductB2;
 
 sub new {
 	my ($class, $args) = @_;
 	return $class->SUPER::new($args);
 }
 
 sub createProductA {
-	return Product::ProductA->new({name => "FB_A#1"});
+	return ProductA::ProductA2->new({name => "FB_A#1"});
 }
 
 sub createProductB {
-	return Product::ProductB->new({name => "FB_B#1"});
+	return ProductB::ProductB2->new({name => "FB_B#1"});
 }
 
 1;

src/abstract-factory/perl/Product/ProductA.pm → src/abstract-factory/perl/ProductA.pm

@@ -1,4 +1,4 @@
-package Product::ProductA;
+package ProductA;
 use parent Product;
 
 sub new {

src/abstract-factory/perl/Product/ProductA/ProductA1.pm → src/abstract-factory/perl/ProductA/ProductA1.pm

@@ -1,5 +1,5 @@
-package Prodct::ProductA::ProductA1;
-use parent Product::ProductA;
+package ProductA::ProductA1;
+use parent ProductA;
 
 use strict;
 use warnings;

src/abstract-factory/perl/Product/ProductA/ProductA2.pm → src/abstract-factory/perl/ProductA/ProductA2.pm

@@ -1,5 +1,5 @@
-package Prodct::ProductA::ProductA2;
-use parent Product::ProductA;
+package ProductA::ProductA2;
+use parent ProductA;
 
 use strict;
 use warnings;

src/abstract-factory/perl/Product/ProductB.pm → src/abstract-factory/perl/ProductB.pm

@@ -1,4 +1,4 @@
-package Product::ProductB;
+package ProductB;
 use parent Product;
 
 sub new {

src/abstract-factory/perl/Product/ProductB/ProductB1.pm → src/abstract-factory/perl/ProductB/ProductB1.pm

@@ -1,5 +1,5 @@
-package Prodct::ProductA::ProductB1;
-use parent Product::ProductA;
+package ProductA::ProductB1;
+use parent ProductA;
 
 use strict;
 use warnings;

src/abstract-factory/perl/Product/ProductB/ProductB2.pm → src/abstract-factory/perl/ProductB/ProductB2.pm

@@ -1,5 +1,5 @@
-package Prodct::ProductA::ProductB2;
-use parent Product::ProductA;
+package ProductA::ProductB2;
+use parent ProductA;
 
 use strict;
 use warnings;