Permalink
Fetching contributors…
Cannot retrieve contributors at this time
25 lines (15 sloc) 397 Bytes
use Test::More qw(no_plan);
use strict;
use warnings;
use autobox::Core;
my $s = "The black cat climbed the green tree";
my $color = $s->substr(4, 5);
is $color, 'black';
my $middle = $s->substr(4, -11);
is $middle, 'black cat climbed the';
my $end = $s->substr(14);
is $end, 'climbed the green tree';
my $tail = $s->substr(-4);
is $tail, 'tree';
my $z = $s->substr(-4, 2);
is $z, 'tr';