Commit | Line | Data |
---|---|---|
0de4f87e | 1 | #!/usr/bin/env perl |
2 | use strict; | |
3 | use warnings; | |
86a4d873 | 4 | use Test::More; |
0de4f87e | 5 | |
6 | use Class::MOP; | |
241646a3 | 7 | my $non = Class::MOP::Class->initialize('Non::Existent::Package'); |
8 | $non->get_method('foo'); | |
9 | ||
0de4f87e | 10 | pass("empty stashes don't segfault"); |
86a4d873 | 11 | |
12 | done_testing; |