Permalink
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (6 sloc) 151 Bytes
use Test::More qw(no_plan);
use strict;
use warnings;
use autobox::Core;
my $string = "THIS IS A STRING";
is $string->lcfirst, 'tHIS IS A STRING';