Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package Graph;
- sub zapilogin {
- if (@_ == 1) {
- return $_[0]{'zapilogin'} if exists $_[0]{'zapilogin'};
- return $_[0]{'zapilogin'} = $default->($_[0]);
- }
- $_[0]{'zapilogin'} = $_[1];
- $_[0];
- };1
- ;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement