… | |
… | |
22 | print STDERR "cfperl: $msg"; |
22 | print STDERR "cfperl: $msg"; |
23 | LOG llevError, "cfperl: $msg"; |
23 | LOG llevError, "cfperl: $msg"; |
24 | }; |
24 | }; |
25 | } |
25 | } |
26 | |
26 | |
|
|
27 | my %ignore_set = (MAP_PROP_PATH => 1); # I hate the plug-in api. Deeply! |
|
|
28 | |
27 | # generate property mutators |
29 | # generate property mutators |
28 | sub prop_gen { |
30 | sub prop_gen { |
29 | my ($prefix, $class) = @_; |
31 | my ($prefix, $class) = @_; |
30 | |
32 | |
31 | no strict 'refs'; |
33 | no strict 'refs'; |
… | |
… | |
41 | $_[0]->get_property ($type, $idx) |
43 | $_[0]->get_property ($type, $idx) |
42 | }; |
44 | }; |
43 | |
45 | |
44 | *{"$class\::set_$sub"} = sub { |
46 | *{"$class\::set_$sub"} = sub { |
45 | $_[0]->set_property ($type, $idx, $_[1]); |
47 | $_[0]->set_property ($type, $idx, $_[1]); |
46 | }; |
48 | } unless $ignore_set{$prop}; |
47 | } |
49 | } |
48 | } |
50 | } |
49 | |
51 | |
50 | # auto-generate most of the API |
52 | # auto-generate most of the API |
51 | |
53 | |