view release on metacpan or  search on metacpan

t/090_thaw.t  view on Meta::CPAN

my $encoder_freeze = Sereal::Encoder->new( { freeze_callbacks => 1 } );

sub strip_white {
    my $s = $_[0];
    $s =~ s/\s+/ /g;
    $s =~ s/\A\s+//;
    $s =~ s/\s+\z//;
    return $s;
}

sub no_warnings(&) {
    my @warn;
    local $SIG{__WARN__} = sub { push @warn, $_[0] };
    $_[0]->();
    return @warn == 0;
}

my $string  = 'string';
my $blessed = bless {}, 'Bespoke';
my $qr      = qr/foo/;