...>perl 11116842_02.t --input 11116842.dat --verbose
$opts = \bless( {
                   'verbose' => 1,
                   'input' => '11116842.dat'
                 }, 'Getopt::Long::Descriptive::Opts::__OPT__::1' );
  at 11116842_02.t line 27.
$_ = \'NAME|VALUE = a
TASK|VALUE = copy
CAPS|VALUE = 0
PKG_TYPE|VALUE = premium';
  at 11116842_02.t line 36, <$INPUT> chunk 1.
$_HREF = \{
             'TASK' => 'copy',
             'CAPS' => '0',
             'PKG_TYPE' => 'premium',
             'NAME' => 'a'
           };
  at 11116842_02.t line 58, <$INPUT> chunk 1.
$_re = \qr/(?<name>TASK|CAPS|PKG_TYPE|NAME)(?^u:\| *VALUE *= *)(?<value>\S*)/ui;
  at 11116842_02.t line 69, <$INPUT> chunk 1.
%+ = (
       'name' => 'NAME',
       'value' => 'a'
     );
  at 11116842_02.t line 80.
%+ = (
       'name' => 'TASK',
       'value' => 'copy'
     );
  at 11116842_02.t line 80.
%+ = (
       'name' => 'CAPS',
       'value' => '34'
     );
  at 11116842_02.t line 80.
%+ = (
       'name' => 'PKG_TYPE',
       'value' => 'minimal'
     );
  at 11116842_02.t line 80.
$difference = \'@@ -31,12 +31,12 @@


 dskmdsldsdsda
-CAPS|VALUE = 34
+CAPS|VALUE = 0
 dksdmlsajdsajdsa
 ..............................
 dsdksld;sads

-PKG_TYPE|VALUE = minimal
+PKG_TYPE|VALUE = premium
 dsmds.dsa.d
 lsdksadjsldjsdjpos
 ...........................
';
  at 11116842_02.t line 83.


$_ = \'NAME|VALUE = z
TASK|VALUE = cut
CAPS|VALUE = 0
PKG_TYPE|VALUE = premium';
  at 11116842_02.t line 36, <$INPUT> chunk 2.
$_HREF = \{
             'PKG_TYPE' => 'premium',
             'CAPS' => '0',
             'NAME' => 'z',
             'TASK' => 'cut'
           };
  at 11116842_02.t line 58, <$INPUT> chunk 2.
$_re = \qr/(?<name>PKG_TYPE|CAPS|NAME|TASK)(?^u:\| *VALUE *= *)(?<value>\S*)/ui;
  at 11116842_02.t line 69, <$INPUT> chunk 2.
Could NOT open 'input/z_cut.txt' for reading! No such file or directory at 11116842_02.t line 73, <$INPUT> chunk 2.
 at 11116842_02.t line 97.
        main::catch {...} ("Could NOT open 'input/z_cut.txt' for reading! No such file or"...) called at C:/berrybrew/5.18.4_32/perl/site/lib/Try/Tiny.pm line 123
        Try::Tiny::try(CODE(0x2e8f57c), Try::Tiny::Catch=REF(0x2d57034)) called at 11116842_02.t line 99
        main::treat(HASH(0x2e8c8fc)) called at 11116842_02.t line 47


$_ = \'NAME|VALUE = c
TASK|VALUE = paste
STACK|VALUE = 2
SHIP|VALUE = lowtier';
  at 11116842_02.t line 36, <$INPUT> chunk 3.
$_HREF = \{
             'NAME' => 'c',
             'STACK' => '2',
             'TASK' => 'paste',
             'SHIP' => 'lowtier'
           };
  at 11116842_02.t line 58, <$INPUT> chunk 3.
$_re = \qr/(?<name>NAME|STACK|TASK|SHIP)(?^u:\| *VALUE *= *)(?<value>\S*)/ui;
  at 11116842_02.t line 69, <$INPUT> chunk 3.
Could NOT open 'input/c_paste.txt' for reading! No such file or directory at 11116842_02.t line 73, <$INPUT> chunk 3.
 at 11116842_02.t line 97.
        main::catch {...} ("Could NOT open 'input/c_paste.txt' for reading! No such file "...) called at C:/berrybrew/5.18.4_32/perl/site/lib/Try/Tiny.pm line 123
        Try::Tiny::try(CODE(0x2e8cbec), Try::Tiny::Catch=REF(0x2e8cbdc)) called at 11116842_02.t line 99
        main::treat(HASH(0x2e8f57c)) called at 11116842_02.t line 47


@failed = (
            'input/z_cut.txt    No such file or directory',
            'input/c_paste.txt  No such file or directory'
          );
  at 11116842_02.t line 53.