Advertisement
Guest User

Untitled

a guest
Jan 31st, 2014
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.21 KB | None | 0 0
  1. package Graph;
  2. sub zapilogin {
  3.   if (@_ == 1) {
  4.     return $_[0]{'zapilogin'} if exists $_[0]{'zapilogin'};
  5.     return $_[0]{'zapilogin'} = $default->($_[0]);
  6.   }
  7.   $_[0]{'zapilogin'} = $_[1];
  8.   $_[0];
  9. };1
  10. ;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement