-
set_image.msn
224 225 1 <%once> 2 3 use IO::File; 4 5 </%once> 1 6 <%args> 2 7 3 $SETS => undef 4 $field => undef 5 $default => undef 6 $object => undef 7 $prop => undef 8 $SETS => undef 9 $field => undef 10 $default=> undef 11 $object => undef 12 $prop => undef 8 13 9 14 </%args> 10 11 15 <%init> 12 use IO::File; 13 use Data::Dumper; 14 16 15 17 return undef unless defined $SETS and defined $field; 16 18