package dbS::Sybase::Parse::SQL_File;

use warnings;
use strict;

use Iterator::Simple qw(iterator);

BEGIN {
    use Exporter ();

    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
    $VERSION = 1.0.0;

    @ISA = qw(Exporter);
    @EXPORT_OK = qw(&batch);
}

our $FH;

#############################

sub batch {
 my $file = shift;

 open ($FH, "<", $file)
   or die ("unable to open sql file\n");

 iterator {
   my $query = "";

   while (my $line = <$FH>) {
     chomp $line;
     last if ($line =~ m/^go\s*$/i);
     $query .= $line . " ";
   }

   return $query;
 }
}

1;