change module name

Changes

@@ -1,4 +1,4 @@
-Revision history for Test::Factory::DBI
+Revision history for DBIx::DataFactory
 
 0.0.1    Tue Oct 18 08:56:04 2011
         - Initial release

lib/Test/Factory/DBI.pm → lib/DBIx/DataFactory.pm

@@ -1,4 +1,4 @@
-package Test::Factory::DBI;
+package DBIx::DataFactory;
 
 use strict;
 use warnings;
@@ -11,9 +11,9 @@ __PACKAGE__->mk_classdata('username');
 __PACKAGE__->mk_classdata('password');
 __PACKAGE__->mk_classdata('defined_types' => {});
 
-__PACKAGE__->add_type('Test::Factory::DBI::Type::Int');
-__PACKAGE__->add_type('Test::Factory::DBI::Type::Num');
-__PACKAGE__->add_type('Test::Factory::DBI::Type::Str');
+__PACKAGE__->add_type('DBIx::DataFactory::Type::Int');
+__PACKAGE__->add_type('DBIx::DataFactory::Type::Num');
+__PACKAGE__->add_type('DBIx::DataFactory::Type::Str');
 
 use Smart::Args;
 use DBIx::Inspector;
@@ -22,7 +22,7 @@ use SQL::Maker;
 use Sub::Install;
 use Class::Load qw/load_class/;
 
-use Test::Factory::DBI::Type;
+use DBIx::DataFactory::Type;
 
 sub create_factory_method {
     args my $class    => 'ClassName',
@@ -109,7 +109,7 @@ sub _factory_method {
             next;
         }
         elsif (ref $default eq 'HASH') {
-            my $value = Test::Factory::DBI->make_value_from_type_info($default);
+            my $value = DBIx::DataFactory->make_value_from_type_info($default);
             $values->{$column} = $value;
             next;
         }
@@ -134,12 +134,12 @@ __END__
 
 =head1 NAME
 
-Test::Factory::DBI - [One line description of module's purpose here]
+DBIx::DataFactory - [One line description of module's purpose here]
 
 
 =head1 SYNOPSIS
 
-    use Test::Factory::DBI;
+    use DBIx::DataFactory;
 
 =for author to fill in:
     Brief code example(s) here showing commonest usage(s).

lib/Test/Factory/DBI/Type.pm → lib/DBIx/DataFactory/Type.pm

@@ -1,4 +1,4 @@
-package Test::Factory::DBI::Type;
+package DBIx::DataFactory::Type;
 
 use strict;
 use warnings;

lib/Test/Factory/DBI/Type/Int.pm → lib/DBIx/DataFactory/Type/Int.pm

@@ -1,10 +1,10 @@
-package Test::Factory::DBI::Type::Int;
+package DBIx::DataFactory::Type::Int;
 
 use strict;
 use warnings;
 use Carp;
 
-use base qw(Test::Factory::DBI::Type);
+use base qw(DBIx::DataFactory::Type);
 
 use Smart::Args;
 

lib/Test/Factory/DBI/Type/Num.pm → lib/DBIx/DataFactory/Type/Num.pm

@@ -1,10 +1,10 @@
-package Test::Factory::DBI::Type::Num;
+package DBIx::DataFactory::Type::Num;
 
 use strict;
 use warnings;
 use Carp;
 
-use base qw(Test::Factory::DBI::Type);
+use base qw(DBIx::DataFactory::Type);
 
 use Smart::Args;
 

lib/DBIx/DataFactory/Type/Set.pm

@@ -0,0 +1,19 @@
+package DBIx::DataFactory::Type::Set;
+
+use strict;
+use warnings;
+use Carp;
+
+use base qw(DBIx::DataFactory::Type);
+
+use Smart::Args;
+
+sub type_name { 'Set' }
+
+sub make_value {
+    args my $class => 'ClassName',
+         my $set   => 'ArrayRef';
+    return $set->[int rand(scalar @$set)];
+}
+
+1;

lib/Test/Factory/DBI/Type/Str.pm → lib/DBIx/DataFactory/Type/Str.pm

@@ -1,10 +1,10 @@
-package Test::Factory::DBI::Type::Str;
+package DBIx::DataFactory::Type::Str;
 
 use strict;
 use warnings;
 use Carp;
 
-use base qw(Test::Factory::DBI::Type);
+use base qw(DBIx::DataFactory::Type);
 
 use Smart::Args;
 use String::Random;

t/00-load.t

@@ -1,7 +1,7 @@
 use Test::More tests => 1;
 
 BEGIN {
-use_ok( 'Test::Factory::DBI' );
+use_ok( 'DBIx::DataFactory' );
 }
 
-diag( "Testing Test::Factory::DBI $Test::Factory::DBI::VERSION" );
+diag( "Testing DBIx::DataFactory $DBIx::DataFactory::VERSION" );

t/01-base.t

@@ -1,33 +1,56 @@
-package test::Test::Factory::DBI;
+package test::DBIx::DataFactory;
 use strict;
 use warnings;
 use Test::More tests => 1;
 
-use Test::Factory::DBI;
+use DBIx::DataFactory;
 use String::Random;
 
-Test::Factory::DBI->username('nobody');
-Test::Factory::DBI->password('nobody');
-Test::Factory::DBI->create_factory_method(
-    method   => 'create_factory',
+# DBIx::DataFactory->username('nobody');
+# DBIx::DataFactory->password('nobody');
+# DBIx::DataFactory->create_factory_method(
+#     method   => 'create_factory',
+#     dbi      => 'dbi:mysql:dbname=test_factory;host=localhost',
+#     table    => 'test_factory',
+#     columns => {
+#         int => {
+#             type => 'Int',
+#             size => 10,
+#         },
+#         double => {
+#             type => 'Num',
+#             size => 5,
+#         },
+#         string => {
+#             type => 'Set',
+#             set  => ['test', 'test2', 'test3'],
+#         },
+#     },
+# );
+
+# my $factory = create_factory(nullable => 100);
+# use Data::Dumper;
+# warn Dumper($factory);
+
+use DBIx::DataFactory;
+DBIx::DataFactory->username('nobody');
+DBIx::DataFactory->password('nobody');
+DBIx::DataFactory->create_factory_method(
+    method   => 'create_factory_data',
     dbi      => 'dbi:mysql:dbname=test_factory;host=localhost',
     table    => 'test_factory',
     columns => {
         int => {
             type => 'Int',
             size => 10,
         },
-        double => {
-            type => 'Num',
-            size => 5,
-        },
         string => {
             type => 'Str',
-            size => 50,
-        }
+            size => 10,
+        },
     },
 );
 
-my $factory = create_factory(nullable => 100);
-use Data::Dumper;
-warn Dumper($factory);
+my $values = create_factory_data(
+    text => 'test text',
+);

t/02-random.t

@@ -2,6 +2,6 @@ use strict;
 use warnings;
 use Test::More tests => 1;
 
-use Test::Factory::DBI::Random;
+use DBIx::DataFactory::Random;
 
 warn rand_int(5);

t/03-type.t

@@ -2,6 +2,6 @@ use strict;
 use warnings;
 use Test::More tests => 1;
 
-use Test::Factory::DBI::Type;
+use DBIx::DataFactory::Type;
 
-warn Test::Factory::DBI::Type->type_to_random_sub('num')->(3);
+warn DBIx::DataFactory::Type->type_to_random_sub('num')->(3);