Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Comment on

( #3333=superdoc: print w/replies, xml ) Need Help??

Yes. The basic technique is to create a new package which inherits from the old one but adds some new methods, then rebless the object into that new package. Here's a quick example:

use 5.010; use Math::BigInt; # quite big!! my $seven = Math::BigInt->new('7'); # $seven cannot "speak", so this warns eval { $seven->speak } or warn $@; { package Math::BigInt::Speaker; our @ISA = qw(Math::BigInt); use Scalar::Util qw(blessed); use Carp qw(confess); sub upgrade { my ($class, $instance) = @_; confess "can only upgrade Math::BigInt objects" unless blessed $instance && $instance->isa('Math::BigInt') +; bless $instance => $class; } sub speak { CORE::say($_[0]); } } # Swaps $seven into our new class. Math::BigInt::Speaker->upgrade($seven); # $seven can now "speak" eval { $seven->speak } or warn $@;

If you use Moose you can do this in a much nicer and more organised way. (Though it's basically the same thing happening under the hood.) You'd just create a new anonymous role, and apply that role to the object.

use 5.010; use Math::BigInt; use Moose (); # quite big!! my $seven = Math::BigInt->new('7'); # $seven cannot "speak", so this warns eval { $seven->speak } or warn $@; my $speaker = Moose::Meta::Role->create_anon_role( methods => { speak => sub { CORE::say($_[0]) }, }, ); Moose::Util::apply_all_roles($seven, $speaker); # $seven can now "speak" eval { $seven->speak } or warn $@;
perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

In reply to Re: Altering the inheritance path of an object by tobyink
in thread Altering the inheritance path of an object by citromatik

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":

  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?

    What's my password?
    Create A New User
    and all is quiet...

    How do I use this? | Other CB clients
    Other Users?
    Others having an uproarious good time at the Monastery: (8)
    As of 2018-01-22 21:02 GMT
    Find Nodes?
      Voting Booth?
      How did you see in the new year?

      Results (237 votes). Check out past polls.