[Catalyst] Accessing $c from Model

[Jonathan Rockway]

> Isn't that really really slow though? Constructing a new object for each call?

No, it's not.  Creating an object in Perl amounts to setting a flag (the
OBJECT flag in subclasses of SvPVMG, to be exact).

See illguts: http://gisle.aas.no/perl/illguts/

-- 
package JAPH;use Catalyst qw/-Debug/;($;=JAPH)->config(name => do {
$,.=reverse qw[Jonathan tsu rehton lre rekca Rockway][$_].[split //,
";$;"]->[$_].q; ;for 1..4;$,=~s;^.;;;$,});$;->setup;