| Subject: | POD fix |
diff -u DBIx-Simple-1.35/lib/DBIx/Simple.pm.orig
DBIx-Simple-1.35/lib/DBIx/Simple.pm
--- DBIx-Simple-1.35/lib/DBIx/Simple.pm.orig 2011-01-05
07:53:54.000000000 +0900
+++ DBIx-Simple-1.35/lib/DBIx/Simple.pm 2013-02-08 23:01:25.000000000 +0900
@@ -1038,7 +1038,7 @@
package DBIx::Simple::Result::ObjectExample;
sub new {
my ($class, %args) = @_;
- return bless $class, \%args;
+ return bless \%args, $class;
}
sub foo { ... }
@@ -1065,8 +1065,8 @@
package DBIx::Simple::Result::ObjectExample;
sub new_from_dbix_simple {
my ($class, $result, @args) = @_;
- return map { bless $class, $_ } $result->hashes if wantarray;
- return bless $class, $result->hash;
+ return map { bless $_, $class } $result->hashes if wantarray;
+ return bless $result->hash, $class;
}
sub foo { ... }