• 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