Select Code to Download

use strict; use warnings;

...

my $encodings_test = 'ascii cp1252 cp437 cp850 iso-8859-1 utf-8-strict
+ utf8';
guess_encoding('some text', qw/$encodings_test/);

Unknown encoding: $encodings_test at /Users/1nickt/perl5/perlbrew/perl
+s/perl-5.30.1/lib/5.30.1/darwin-2level/Encode/Guess.pm line 120.

use strict; use warnings;
use Test::More tests => 2;
...

is_deeply( [ qw/foo bar baz/ ], [ @arr ] );
is_deeply( [ qw/$str/ ], [ @arr ] );

11115052-3.pl ..
1..2
...
  Non-zero exit status: 1
Files=1, Tests=2,  0 wallclock secs ( 0.02 usr  0.00 sys +  0.05 cusr 
+ 0.00 csys =  0.07 CPU)
Result: FAIL