Skip to content
This repository
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 17 lines (12 sloc) 0.236 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!perl -w

use perl5i::latest;
use Test::More 'no_plan';

my @array = ( 1, 2, 3 );
is @array->pop, 3;

sub SCALAR::my_strip {
    $_[0] =~ s/^\s+//;
    $_[0] =~ s/\s+$//;
}

my $string = " foo ";
$string->my_strip;
is $string, "foo";
Something went wrong with that request. Please try again.