@@ -5,7 +5,7 @@ <string id="import_exclude_matches">*.*~;*.bak;*.tmp;CVS;.#*;*.pyo;*.pyc;.svn;*%*;tmp*.html;.DS_Store</string> <boolean id="import_recursive">1</boolean> <string id="phpExtraPaths"></string> - <string id="perlExtraPaths"></string> + <string relative="path" id="perlExtraPaths">t/lib</string> <boolean id="import_live">1</boolean> <string id="import_type">useFolders</string> <string id="mappedPaths"></string> Handel.kpf @@ -42,7 +42,7 @@ license 'perl'; perl_version '5.008001'; all_from 'lib/Handel.pm'; -requires 'DBIx::Class' => '0.08002'; +requires 'DBIx::Class' => '0.08008'; requires 'DBIx::Class::UUIDColumns' => '0.02000'; requires 'DBIx::Class::Validation' => '0.02000'; requires 'Data::Currency' => '0.04002'; Makefile.PL @@ -6,6 +6,8 @@ use warnings; BEGIN { use base qw/Class::Accessor::Grouped/; + use Scalar::Util (); + __PACKAGE__->mk_group_accessors('simple', qw/storage_result storage/); }; @@ -14,11 +16,11 @@ sub can { }; sub delete { - throw Handel::Exception::Virtual; + Handel::Exception::Virtual->throw; }; sub discard_changes { - throw Handel::Exception::Virtual; + Handel::Exception::Virtual->throw; }; sub has_column { @@ -31,7 +33,7 @@ sub has_column { }; sub update { - throw Handel::Exception::Virtual; + Handel::Exception::Virtual->throw; }; sub add_item { @@ -56,7 +58,7 @@ sub items { sub create_instance { my ($self, $result, $storage) = @_; - my $class = blessed $self ? blessed $self : $self; + my $class = Scalar::Util::blessed $self ? Scalar::Util::blessed $self : $self; return bless { storage_result => $result, lib/Handel/Storage/Result.pm @@ -1,5 +1,5 @@ #!perl -wT -# $Id$ +# $Id: /local/CPAN/Handel/trunk/t/cart_create.t 1988 2007-10-21T21:05:56.869869Z claco $ use strict; use warnings; t/cart_create.t @@ -1,5 +1,5 @@ #!perl -wT -# $Id$ +# $Id: /local/CPAN/Handel/trunk/t/cart_item_create.t 1963 2007-08-22T02:36:42.709186Z claco $ use strict; use warnings; t/cart_item_create.t @@ -1,5 +1,5 @@ #!perl -wT -# $Id$ +# $Id: /local/CPAN/Handel/trunk/t/cart_search.t 1963 2007-08-22T02:36:42.709186Z claco $ use strict; use warnings; t/cart_search.t 9a1c5022d4c1cb6a3a68368a7b68fee47a53722c claco claco@52a70e3a-55ec-0310-b14e-7917f69ecacc http://github.com/claco/handel/commit/6997329086440b3764db02798c2744f05077160d 6997329086440b3764db02798c2744f05077160d 2008-01-01T13:05:44-08:00 2008-01-01T13:05:44-08:00 r1078@mbp: claco | 2008-01-01 16:13:23 -0500 Fixed blessed and lack of use Scalar::Util git-svn-id: http://svn.icantfocus.com/CPAN/Handel/trunk@2052 52a70e3a-55ec-0310-b14e-7917f69ecacc 27564b91573c5452552813764fcbf89dca62f4de claco claco@52a70e3a-55ec-0310-b14e-7917f69ecacc