File Coverage

blib/lib/Parse/Stallion/CSV.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	20	21	95.2

#Copyright 2007-8 Arthur S Goldstein
#TESTING PHASE

package Parse::Stallion::CSV;
use Carp;
use strict;
use warnings;
use Parse::Stallion;
#use Data::Dumper;

our $VERSION='0.5';
#Copied somewhat from rfc1480
# see for reference: http://tools.ietf.org/html/rfc4180

my %with_header_csv_rules = (
   file => AND(
      'header',
       'CRLF',
       'record',
       MULTIPLE(AND('CRLF', 'record')),
       OPTIONAL('CRLF')
     ,
     EVALUATION(sub {
#use Data::Dumper;print STDERR "withhead params are ".Dumper(\@_)."\n";
       return {header => $_[0]->{header}, records => $_[0]->{record}};
     }
    )),

   header => AND('name', MULTIPLE(AND('COMMA', 'name')),
     EVALUATION(sub {return $_[0]->{name}}))
    ,

   record => AND('field', MULTIPLE(AND('COMMA', 'field')),
     EVALUATION(sub {
#use Data::Dumper;print STDERR "record params are ".Dumper(\@_)."\n";
       return $_[0]->{field}}))
    ,

   name => AND('field'),

   field => OR('escaped', 'non_escaped'),

   escaped => AND('DQUOTE', 'inner_escaped', 'DQUOTE',
      EVALUATION(sub {
#use Data::Dumper;print STDERR "escaped params are ".Dumper(\@_)."\n";
       return $_[0]->{inner_escaped}})
    ),

   ie_choices=>OR('TEXTDATA','COMMA','CRLF','DDQUOTE'),

   inner_escaped =>
     MULTIPLE('ie_choices'
      ,
      EVALUATION(sub {
#use Data::Dumper;print STDERR "ie params are ".Dumper(\@_)."\n";
        my $param = shift;
        return join('', @{$param->{'ie_choices'}});
        }
    )),

   DDQUOTE => AND('DQUOTE','DQUOTE',
      EVALUATION(sub {return '"'})
   ),

   non_escaped => AND('TEXTDATA'),

   COMMA => LEAF(qr/\x2C/),

#   CR => LEAF(qr/\x0D/),

   DQUOTE => LEAF(qr/\x22/),

#   LF => LEAF(qr/\x0A/),

   #CRLF => AND('CR','LF'),
   CRLF => LEAF(qr/\n/)
#    evaluation =>
#     sub {
#      my $param = shift;
##      print STDERR "Parsm to crlf are ".Dumper($param)."\n";
#      return "\n";
#    }
   ,

   TEXTDATA => LEAF(qr/[\x20-\x21\x23-\x2B\x2D-\x7E]+/)
   ,

);

sub new {
  my $self = shift;
  my $parameters = shift;
  return  new Parse::Stallion(
    \%with_header_csv_rules, {start_rule=>'file'});
}


1;

__END__