view release on metacpan or  search on metacpan

lib/Hydrogen.pm  view on Meta::CPAN

        local $Data::Dumper::Indent = 0;
        $message = sprintf $message, map {
            ref($_) ? Data::Dumper::Dumper($_) : defined($_) ? $_ : '(undef)'
        } @args;
    }
    require Carp;
    @_ = $message;
    goto \&Carp::croak;
}

if ( $] ge '5.016' ) {
    *fc = \&CORE::GLOBAL::fc;
}
else {
   eval 'sub fc { lc( @_ ? $_[0] : $_ ) }';
}

# Compatibility shim for Perl < 5.10
eval 'require re';
unless ( exists &re::is_regexp ) {
    require B;

t/integration/lexical.t  view on Meta::CPAN

WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.

=cut

use strict;
use warnings;
use Test2::V0;

BEGIN {
	skip_all 'This test requires Perl 5.37.2+' if $] lt '5.037002';
};

{
	use Hydrogen::Topic::String -lexical, 'append';

	local $_ = 'xxx';
	append( 'foo' );
	append( 'bar' );
	append( 'baz' );
	is $_, 'xxxfoobarbaz', 'append worked!';