view release on metacpan or  search on metacpan

lib/AnyData2/Storage/File/Linewise.pm  view on Meta::CPAN

  $stor->write($buf)

Writes the buf out

=cut

sub write
{
    my ( $self, $buf ) = @_;
    $self->{fh}->say($buf) or die "Can't write to $self->{filename}: $!";
}

=head1 LICENSE AND COPYRIGHT

Copyright 2015,2016 Jens Rehsack.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.