File Coverage

blib/lib/MMM/Sylk.pm

Criterion	Covered	Total	%
statement	57	62	91.9
branch	9	12	75.0
condition			n/a
subroutine	12	13	92.3
pod	0	5	0.0
total	78	92	84.7

package MMM::Sylk;

use 5.006;
use strict;
use warnings;

require Exporter;
use AutoLoader qw(AUTOLOAD);

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Sylk ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);
our $VERSION = '0.02';

our $EOL = "\n";

# Preloaded methods go here.


sub new
{
	my @this;

	if( ref($_[1]) eq 'HASH' )
	{
		$this[1] = [ @{ $_[1]->{FirstRecord} } ];
	}

	$this[0] = [];
	return bless \@this;
}

sub push_record
{
	my $this = shift;

	if( ref($_[0]) eq 'ARRAY' )
	{
		push @{ $this->[0] }, $_[0];
	} else
	{
		push @{ $this->[0] }, [ @_ ];
	}
}

sub clear
{
	my $this = shift;
	@{ $this->[0] } = ();
}

sub _SYLK_HEAD { "ID;PWXL;N;E" . $EOL }
sub _SYLK_TAIL { "E" }


sub print
{
	my $this = shift;
	my $output = shift;
	my $headers = $this->[1];
	my $line = 0;

	if( ref($output) eq 'SCALAR' ) { $$output .= _SYLK_HEAD(); }
	else { print $output _SYLK_HEAD(); }

	if( $headers )
	{
		$line = 1;
		_print_sylk_line( $output, $line, $headers );
	}
	for my $r( @{ $this->[0] } )
	{
		++$line;
		_print_sylk_line( $output, $line, $r );
	}
	if( ref($output) eq 'SCALAR' ) { $$output .= _SYLK_TAIL(); }
	else { print $output _SYLK_TAIL(); }
}

sub as_string
{
	my $this = shift;
	my $output;
	$this->print(\$output);
	return $output;
}

my %encodings =
(
 	'à' => 'NAa',
	'è' => 'NAe',
	'é' => 'NBe',
	'ò' => 'NAo',
	'ç' => 'NKc',
	'ì' => 'NAi',
	'°' => 'N0'
);

my $encodings_charlist = join "", keys %encodings;
sub _sylk_escape
{
	$_[0] =~ s/([$encodings_charlist])/chr(27) . $encodings{$1}/ge
}

sub _print_sylk_line
{
	my ($output, $line, $record ) = @_;

#	my $out = "C;Y$line;";
	my $out;

	my $count = 1;
	for my $f ( @$record )
	{
		_sylk_escape($f);
		$out .= "C;Y$line;X$count;K\"$f\"$EOL";
		++$count;
	}
	if( ref($output) eq 'SCALAR' ) { $$output .= $out; }
	else { print $output $out; }
}




# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__