daily pastebin goal
71%
SHARE
TWEET

Untitled

a guest Jul 12th, 2018 58 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use Test::More tests => 1;
  5.  
  6. {
  7.     package Foo;
  8.     use Moose;
  9.  
  10.     sub DEMOLISH {
  11.         $@ = 1;
  12.     }
  13. }
  14.  
  15. {
  16.     my $foo = Foo->new;
  17.     $@ = 0;
  18. }
  19. is($@, 0, "properly localized");
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top