Commit | Line | Data |
---|---|---|
60ad2cb7 | 1 | #!/usr/bin/perl\r |
2 | \r | |
3 | use strict;\r | |
4 | use warnings;\r | |
5 | \r | |
6 | \r | |
7 | {\r | |
8 | package Foo;\r | |
9 | use Mouse;\r | |
10 | \r | |
11 | sub DEMOLISH {\r | |
12 | my $self = shift;\r | |
13 | my ($igd) = @_;\r | |
14 | \r | |
15 | print $igd;\r | |
16 | }\r | |
17 | }\r | |
18 | \r | |
19 | {\r | |
20 | package Bar;\r | |
21 | use Mouse;\r | |
22 | \r | |
23 | sub DEMOLISH {\r | |
24 | my $self = shift;\r | |
25 | my ($igd) = @_;\r | |
26 | \r | |
27 | print $igd;\r | |
28 | }\r | |
29 | \r | |
30 | __PACKAGE__->meta->make_immutable;\r | |
31 | }\r | |
32 | \r | |
33 | our $foo = Foo->new;\r | |
34 | our $bar = Bar->new;\r |