view release on metacpan or  search on metacpan

t/03_DATA.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

#use Test::More 'no_plan';
use Test::More tests => 2;
use Test::Differences;

use FindBin qw($Bin);
use lib "$Bin/lib";
use Scalar::Util 'blessed', 'reftype';

BEGIN {
	use_ok ( 'IO::Any' ) or exit;
}

exit main();

sub main {
	my $x = *DATA;
	
	my $data_chunk = IO::Any->slurp(*DATA);
	eq_or_diff($data_chunk, "some\ndata\nchunk\n", 'read from <DATA>');
	
	return 0;
}

__DATA__
some
data
chunk