projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Import a moose cookbook recipe
[gitmo/Mouse.git]
/
t
/
010_basics
/
failing
/
020-global-destruction-helper.pl
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