2 use warnings FATAL => 'all';
3 use aliased 'MooseX::Antlers::EvalTracker';
4 use aliased 'MooseX::Antlers::RefTracker';
5 use aliased 'MooseX::Antlers::RefFilter';
15 my $orig = Moose->can('import');
16 no warnings 'redefine';
17 local *Moose::import = sub {
19 Moose->$orig({ into => $targ });
20 my $has = $targ->can('has');
23 *{"${targ}::has"} = sub {
24 $attr_refs{$_[0]} = RefTracker->trace_refs(
25 '$attributes{'.perlstring($_[0]).'}'
28 my $et = EvalTracker->new->enable;
30 $attr_methods{$_[0]} = $et->recorded_coderefs;
37 ok(One->can('foo'), 'foo accessor installed');
39 use Data::Dump::Streamer;
41 my $orig_foo_src = Dump(One->can('foo'));
43 # write test_class method that checks method including call
45 # build compiled source
46 # eval compiled source
47 # run test_class after that as well as before unload
49 use Data::Dumper::Concise;
51 #warn Dumper \%attr_refs;
52 #warn Dumper \%attr_methods;