The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

ZARABOZO / Perlmazing-2.0016 / lib / Perlmazing / Perlmazing / trim.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12

              
use Perlmazing;
our @ISA = qw(Perlmazing::Listable);
sub main {
        if (defined $_[0]) {
    $_[0] =~ s/(^\s+|\s+$)//g;
  } else {
    $_[0] = '';
  }
}
1;