blob: 0d0a957bbc68491d77eeafe6d9833fdee01dd0e2 (
plain) (
tree)
|
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
my $demolished;
{
package Foo;
use Moose;
use Bread::Board::Declare;
has controller => (is => 'ro');
sub DEMOLISH { $demolished++ }
}
{
my $foo = Foo->new;
}
is($demolished, 1);
done_testing;
|