Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re^2: messing with @ISA - unblessing

by Your Mother (Bishop)
on Aug 03, 2008 at 05:25 UTC ( #701865=note: print w/replies, xml ) Need Help??


in reply to Re: messing with @ISA - unblessing
in thread messing with @ISA - unblessing

Applying this, as I learned this week, is trivial with Moose (or Mouse). Here is a snippet that installs a Template object inside your object, and only when needed, and then dispatches--via the handles param which has even more sugar than shown--any calls on your $object->process to the TT2 object exactly as if it were called instead. It's really very hot.

use Mouse; has "tt2" => ( is => "ro", lazy => 1, # not always used isa => "Template", default => sub { require Template; Template->new(); }, handles => [qw( process )], );

Update (2017-07-11): moved use to require inside the default sub. A better practice if the object is not always used.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://701865]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (4)
As of 2020-11-30 02:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?