16 lines
125 B
Perl
16 lines
125 B
Perl
package Custom;
|
|
|
|
sub empty {
|
|
return '';
|
|
}
|
|
|
|
sub undefined {
|
|
return undef;
|
|
}
|
|
|
|
sub test_uc {
|
|
return uc $_[0];
|
|
}
|
|
|
|
1;
|