From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

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

            

              
1
2
3
4
5
6
7
8

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