Commit | Line | Data |
---|---|---|
346a3ab8 | 1 | #!/usr/bin/perl |
fde8e43f | 2 | # This is automatically generated by author/import-moose-test.pl. |
3 | # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!! | |
4 | use t::lib::MooseCompat; | |
346a3ab8 | 5 | |
6 | use strict; | |
7 | use warnings; | |
fde8e43f | 8 | |
346a3ab8 | 9 | |
10 | { | |
11 | package Foo; | |
12 | use Mouse; | |
13 | ||
14 | sub DEMOLISH { | |
15 | my $self = shift; | |
16 | my ($igd) = @_; | |
17 | ||
fde8e43f | 18 | print $igd; |
346a3ab8 | 19 | } |
20 | } | |
21 | ||
22 | { | |
23 | package Bar; | |
24 | use Mouse; | |
25 | ||
26 | sub DEMOLISH { | |
27 | my $self = shift; | |
28 | my ($igd) = @_; | |
29 | ||
fde8e43f | 30 | print $igd; |
346a3ab8 | 31 | } |
32 | ||
33 | __PACKAGE__->meta->make_immutable; | |
34 | } | |
35 | ||
36 | our $foo = Foo->new; | |
37 | our $bar = Bar->new; |