Skip to content

Instantly share code, notes, and snippets.

@berekuk

berekuk/gist:1932793

Created February 28, 2012 14:17
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save berekuk/1932793 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save berekuk/1932793 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
package Wrap;
...
sub lag {
die unless $self->{wrapped}->DOES('Stream::Role::Lag');
return $self->{wrapped}->lag;
}
sub DOES {
return $self->{wrapped}->DOES(@_);
}
Wrap->new($object_implements_lag);
Wrap->new($object_doesnt_implement_lag);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment