view release on metacpan or  search on metacpan

lib/Book/Collate/Section.pm  view on Meta::CPAN

=head2 _trim

Removes leading and trailing whitespace. Note that this also removes
the final newline.

=cut

sub _trim {
  my ( $self, $string )  = @_;
  my $caller = caller();
  ( my $new_string ) = $string =~ m/^\s*(\S.*\S)\s*$/s;
  return $new_string;
}

=head2 avg_sentence_length

Returns the average sentence length.

=cut