1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!/usr/bin/perl
use v5.18;
use warnings;
use Test2::V0;
# requires Devel::MAT >= 0.53 in case Devel::MAT::Dumper writes a file in
# format version 0.6
use Test2::Require::Module 'Devel::MAT' => '0.53';
use Object::Pad 0.800;
class AClass
{
field $afield :param :reader;
}
my $obj = AClass->new( afield => 123 );
require Devel::MAT::Dumper;
( my $file = __FILE__ ) =~ s/\.t$/.pmat/;
Devel::MAT::Dumper::dump( $file );
END { unlink $file if -f $file }
my $pmat = Devel::MAT->load( $file );
my $df = $pmat->dumpfile;
# class/field/method representation
{
my $classmeta = $pmat->find_symbol( "&AClass::META" )->constval->rv
->outref_named( "the Object::Pad class" )
->sv;
ok( $classmeta, 'AClass has a classmeta' );
isa_ok( $classmeta, [ "Devel::MAT::SV::C_STRUCT" ], '$classmeta' );
is( $classmeta->desc, "C_STRUCT(Object::Pad/ClassMeta.class)", '$classmeta->desc' );
is( $classmeta->field_named( "the name SV" )->pv, 'AClass', '$classmeta name SV' );
# Field
my @fieldmetas = $classmeta->field_named( "the fields AV" )->elems;
is( scalar @fieldmetas, 1, '$classmeta has 1 fieldmeta' );
my $fieldmeta = $fieldmetas[0];
isa_ok( $fieldmeta, [ "Devel::MAT::SV::C_STRUCT" ], '$fieldmeta' );
is( $fieldmeta->desc, "C_STRUCT(Object::Pad/FieldMeta)", '$fieldmeta->desc' );
is( $fieldmeta->field_named( "the name SV" )->pv, '$afield', '$fieldmeta name SV' );
is( $fieldmeta->field_named( "the class" ), $classmeta, '$fieldmeta class' );
# Method
my @methodmetas = $classmeta->field_named( "the direct methods AV" )->elems;
is( scalar @methodmetas, 1, '$classmeta has 1 methodmeta' );
my $methodmeta = $methodmetas[0];
isa_ok( $methodmeta, [ "Devel::MAT::SV::C_STRUCT" ], '$methodmeta' );
is( $methodmeta->desc, "C_STRUCT(Object::Pad/MethodMeta)", '$methodmeta->desc' );
is( $methodmeta->field_named( "the name SV" )->pv, 'afield', '$methodmeta name SV' );
is( $methodmeta->field_named( "the class" ), $classmeta, '$methodmeta class' );
}
done_testing;
|
