Skip to content

Instantly share code, notes, and snippets.

package EasyCMS2::Model::Base;
use strict;
use base 'Catalyst::Model::DBIC::Schema';
use EasyCMS2::Schema::Base;
__PACKAGE__->config(
schema_class => 'EasyCMS2::Schema::Base',
);
#!/usr/bin/perl
use Chart::Clicker;
use Chart::Clicker::Data::Series::Size;
use Chart::Clicker::Data::DataSet;
use Geometry::Primitive::Circle;
use Chart::Clicker::Renderer::Bubble;
my $ticks = { labels => ["omega", "nilsi", "gram"], "values" => [1, 3, 2] };
andremar:(git)golf[master]/$ kioku gc -D bdb-gin:dir=tmpdb
Connecting to DSN bdb-gin:dir=tmpdb... KiokuDB::Backend::BDB::GIN=HASH(0xb7f410)
starting transaction
Could not load class (KiokuDB::GC::Naive) because : Could not load class (KiokuDB::Role::Scan) because : The method '_make_wrapper' was not found in the inheritance hierarchy for MooseX::Role::Parameterized at
/opt/local/lib/perl5/site_perl/5.10.0/darwin-2level/Class/MOP/Class.pm line 648
Class::MOP::Class::__ANON__('Moose::Meta::Class=HASH(0xcd3650)', '_make_wrapper') called at /opt/local/lib/perl5/site_perl/5.10.0/darwin-2level/Class/MOP/Class.pm line 688
Class::MOP::Class::add_around_method_modifier('Moose::Meta::Class=HASH(0xcd3650)', '_make_wrapper', 'CODE(0xce14f0)') called at /opt/local/lib/perl5/site_perl/5.10.0/Moose/Util.pm line 193
Moose::Util::add_method_modifier('MooseX::Role::Parameterized', 'around', 'ARRAY(0x98add0)') called at /opt/local/lib/perl5/site_perl/5.10.0/Moose.pm line 89
Moose::around(undef,
diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 237023b..4d0c77a 100644
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -649,7 +649,8 @@ sub add_method {
$method = $self->find_next_method_by_name($method_name);
# die if it does not exist
(defined $method)
- || confess "The method '$method_name' was not found in the inheritance hierarchy for " . $self->name;
+ || confess "The method '$method_name' was not found in the inheritance hierarchy ("
We couldn’t find that file to show.
has 'id' => (
traits => [qw/Extract/],
is => 'ro',
isa => 'Str',
lazy_build => 1,
);
method _build_id {
sha1_hex($self->date . "-"
. $self->course->name . "-" . rand(10000)
The 'formatter' parameter ("DateTime::Format::Strptime=HASH(0x1de270)") to DateTime::from_object does not have the method: 'format_datetime'
at /opt/local/lib/perl5/site_perl/5.10.0/darwin-2level/DateTime.pm line 499
DateTime::from_object(undef, 'object', 'DateTime::_Thawed=HASH(0xd10220)', 'locale', 'DateTime::Locale::en=HASH(0xcaa9a0)', 'formatter', 'DateTime::Format::Strptime=HASH(0x1de270)') called at /opt/local/lib/perl5/site_perl/5.10.0/darwin-2level/DateTime.pm line 1739
DateTime::STORABLE_thaw('DateTime=HASH(0xcaa900)', 0, 'utc_rd_days:733549|utc_rd_secs:0|rd_nanosecs:0|version:0.42', 'DateTime::Locale::en=HASH(0xcaa9a0)', 'DateTime::TimeZone::Floating=HASH(0xcaaaf0)', 'REF(0x1dc420)') called at ../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/thaw.al) line 415
eval {...} called at ../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/thaw.al) line 415
Storable::thaw('\x{5}\x{7}\x{13}B\x{2}\x{0}\x{0}\x{0}\x{3}\x{4}\x{3}\x{0}\x{0}\x{0}\x{3}\x{4}\x{13}\x{2}\x{12}KiokuDB::Refere
diff --git a/lib/KiokuDB/Test/Fixture/TypeMap/Default.pm b/lib/KiokuDB/Test/Fixture/TypeMap/Default.pm
index 8185802..d8b6dc2 100644
--- a/lib/KiokuDB/Test/Fixture/TypeMap/Default.pm
+++ b/lib/KiokuDB/Test/Fixture/TypeMap/Default.pm
@@ -19,6 +19,7 @@ use constant required_backend_roles => qw(TypeMap::Default);
use Tie::RefHash;
use constant HAVE_DATETIME => eval { require DateTime };
+use constant HAVE_DATETIME_FMT => eval { require DateTime::Format::Strptime };
use constant HAVE_URI => eval { require URI };
package Catalyst::View::Component::ESI;
use Moose::Role;
requires 'process';
around 'process' => sub {
my $orig = shift;
my $content = $orig->(@_);
## fix $content
--- !!perl/hash:KiokuDB::Entry
backend_data:
keys:
- '0'
class: Golf::Domain::Hole
data:
par: '3'
id: CACBC39C-457F-11DE-A987-88B5FF47D780
root: 0
--- !!perl/hash:KiokuDB::Entry