diff options
Diffstat (limited to 'static/talks/extending_moose_yapc_na_2010/049.pl.html')
-rw-r--r-- | static/talks/extending_moose_yapc_na_2010/049.pl.html | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/static/talks/extending_moose_yapc_na_2010/049.pl.html b/static/talks/extending_moose_yapc_na_2010/049.pl.html new file mode 100644 index 0000000..cdd2d70 --- /dev/null +++ b/static/talks/extending_moose_yapc_na_2010/049.pl.html @@ -0,0 +1,46 @@ +<html> +<head> +<title>049.pl</title> +<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> +<script> +function navigate(e) { + var keynum = (window.event) // IE + ? e.keyCode + : e.which; + if (keynum == 8) { + window.location = "048" + ".html"; + return false; + } + if (keynum == 13 || keynum == 32) { + window.location = "050.pl" + ".html"; + return false; + } + if (keynum == 73 || keynum == 105) { + window.location = "index.html"; + return false; + } + return true; +} +</script> +</head> +<body onkeypress="return navigate(event)"> +<pre> + package AtomicMethod::Role::Method; + use Moose::Role; + + around wrap => sub { + my ($orig, $self, $body, @args) = @_; + my $new_body = sub { + warn "locking...\n"; # or something more useful + my @ret = $body->(@_); # TODO: handle context properly + warn "unlocking...\n"; # or something more useful + return @ret; + }; + $self->$orig($new_body, @args); + }; + + + + +</pre> +</body> |