This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use MooseX::Declare; | |
class Golf::Domain extends KiokuX::Model { | |
}; | |
1; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- !!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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package Catalyst::View::Component::ESI; | |
use Moose::Role; | |
requires 'process'; | |
around 'process' => sub { | |
my $orig = shift; | |
my $content = $orig->(@_); | |
## fix $content |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 }; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
has 'id' => ( | |
traits => [qw/Extract/], | |
is => 'ro', | |
isa => 'Str', | |
lazy_build => 1, | |
); | |
method _build_id { | |
sha1_hex($self->date . "-" | |
. $self->course->name . "-" . rand(10000) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 (" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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] }; |