usr bin env perl sub get_form_data my args return unless args to_utf8

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/env perl
sub get_form_data {
my %args = @_;
return {} unless ($args{to_utf8});
return undef;
}
######
my $data = get_form_data(
#to_utf8 => 1,
);
unless ($data) {
print STDERR "Can't parse data\n";
}
exit 0;