Public Pastes
Guest

mhg

By: a guest on Feb 3rd, 2010  |  syntax: Perl  |  size: 0.30 KB  |  hits: 127  |  expires: Never
download  |  raw  |  embed  |  report abuse
Copied
  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 a new version of this paste RAW Paste Data