My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

mhg

By: a guest | Feb 3rd, 2010 | Syntax: Perl | Size: 0.30 KB | Hits: 125 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1. package TestMoose;
  2.   3 use Moose;
  3.   4
  4.   5 sub track_master {
  5.   6     my ( $orig, $self, $value ) = @_;
  6.   7
  7.   8     return $self->$orig( $value ) if $value;
  8.   9
  9.  10     my $out = $self->$orig();
  10.  11     return $out->( $self ) if ref $out eq 'CODE';
  11.  12
  12.  13     return $self->$orig();
  13.  14 }
  14.  15
create new paste | create new version of this paste RAW Paste Data