File Coverage

Fracture.pm

Criterion	Covered	Total	%
statement	6	10	60.0
branch	0	4	0.0
condition	0	9	0.0
subroutine	2	3	66.6
pod	0	1	0.0
total	8	27	29.6

#
# Fracture.pm
#
# Copyright (c) 2007-2008, Juergen Weigert, Novell Inc.
# This module is free software. It may be used, redistributed
# and/or modified under the same terms as perl.
#

package Text::Fracture;

use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw(init fract) ] );	# exportable
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw();					# autoexport
our $VERSION = '1.02';

require XSLoader;
XSLoader::load('Text::Fracture', $VERSION);

sub fract
{
  my $r = do_fract(@_);

  # do_fract() may put an empty element at the end of the list.
  # check for that and clean up.
  # (This cleanup code is easier done in perl than in C.)

  # a) an empty element may be trailing.
  pop @$r if $r and $r->[-1] and ($r->[-1][1] == 0);

  # b) our end of file recognition always has one newline too many at the end.
  $r->[-1][3]-- if $r and $r->[-1];

  return $r;
}

1;
__END__