SL/Helper/Csv/Error.pm

   1 package SL::Helper::Csv::Error;
   2
   3 use strict;
   4
   5 sub new {
   6   my $class = shift;
   7   bless [ @_ ], $class;
   8 }
   9
  10 sub raw_input { $_->[0] }
  11 sub code      { $_->[1] }
  12 sub diag      { $_->[2] }
  13 sub col       { $_->[3] }
  14 sub line      { $_->[4] }
  15
  16 1;