12345678910 use strict;use warnings;use Test::More tests => 100;use Tie::Scalar::Random;tie my $line => 'Tie::Scalar::Random';for (1..100) { $line = $_; is($line, $line);}
use
strict;
warnings;
Test::More
tests
=> 100;
Tie::Scalar::Random;
tie
my
$line
=>
'Tie::Scalar::Random'
;
for
(1..100) {
=
$_
is(
,
);
}