| … | |
… | |
| 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 | |
