Above is my image capture for posterity. Here is the Amazon UK link of the book .

I suspect the morphed authors J; John, A Rockway maybe a bit miffed about this till Amazon fix it. At least the publishers didn’t make the same mistake when printing the book

/I3az/

Perl Catalyst and DBIx::Class from Joshua Drake on Vimeo.

Matt comes to blows with the slideshow in above talk so you may prefer to watch a shortened version of this talk from the London Perl Workshop November 2008.

The slides can be found on Shadowcat’s website (requires Firefox).

More Perl videos are available though this tag does mix in some non related stuff but you can watch Giles Bowkett attempt:

Lightbulb Joke: Perl from giles goat boy on Vimeo.

or instead watch something that is really funny:

YAPC::EU Promo from Curtis Poe on Vimeo.

/I3az/

PS. I did try embedded the vimeo videos in post but WordPress decided to spit them out and just leave the placeholders ;-(

PPS. Now fixed! Use (vimeo ####) where #### is the video id from the vimeo URL and replace parenthesis with square brackets!

Here are some new things to look out for in latest Squatting…

• More docs
• Squatting::With::Logs – Simple way to log errors
• Squatting::With::Coro::Debug – Use Coro::Debug to help debug Squatting::On::Continuity apps
• Can now squat on mod_perl 1.3 & mod_perl 2.0
• And a little extra stocking filler called Squatting::H

Squatting::H is hash based object loosely based on Camping::H (Ruby). Here is an example from its pod to make you puurrrr a little

my $cat = Squatting::H->new({
    name => 'kurochan',
    meow => sub { "me" . "o" x length($_[0]->name) . "w" }
});

my $kitty = $cat->clone({ name => 'max' });

$cat->name;                     # "kurochan"
$kitty->name;                   # "max"
$cat->meow;                     # "meoooooooow"
$kitty->meow;                   # "meooow"
$cat->age(3);                   # 3
$kitty->age(2);                 # 2
$kitty->slots;                  # qw(name meow age)

/I3az/

Problem was with other CPAN modules. The two culprits were Module::Build & Test::WWW::Mechanize::Catalyst.

Module::Build failed one test in compat.t….

t/compat.t..............45/60
# Failed test 'Should be non-verbose'
# at t/compat.t line 146.
# '# make test TEST_VERBOSE=0
# # make[1]: Entering directory `/home/jkellehe/.cpan/build/Module-Build-0.2808-gC4gPU/t/_tmp/Simple'
# # /clear/local/bin/perl Build --makefile_env_macros 1 test
# # t/basic.t....ok
# # All tests successful.
# # Files=1, Tests=1, 0 wallclock secs ( 0.01 usr 0.00 sys + 0.02 cusr 0.01 csys = 0.04 CPU)
# # Result: PASS
# # make[1]: Leaving directory `/home/jkellehe/.cpan/build/Module-Build-0.2808-gC4gPU/t/_tmp/Simple'
# '
# doesn't match '(?-xism:(?:# .+basic\.+ok\s+(?:[\d.]+\s*m?s\s*)?)# All tests)'


This looked like it was something wrong with test… so I decided to force the install (oh heavens forbid!).

I found the problem on web (think RT) about what was wrong with Test::WWW::Mechanize::Catalyst. I just need to downgrade LWP to 5.808 & Test::WWW::Mechanize::Catalyst to 0.40 and all tests passed.

NB. On a non Catalyst sidenote…. I also had problem installing DateTime from CPAN. Needed DateTime::Locale & DateTime::TimeZone installing first.

Update: I think DateTime problem was probably associated with locale settings. Setting “export LANG=C” first think gets around above problem.