File Coverage

blib/lib/File/Update.pm

Criterion	Covered	Total	%
statement	22	26	84.6
branch	4	8	50.0
condition	4	9	44.4
subroutine	6	7	85.7
pod	4	4	100.0
total	40	54	74.0

package File::Update;
$File::Update::VERSION = '0.2.1';
use strict;
use warnings;

use parent 'Exporter';

our @EXPORT_OK = (
    qw(modify_on_change write_on_change write_on_change_raw write_on_change_no_utf8)
);

sub write_on_change
{
    my ( $io, $text_ref ) = @_;

    if ( ( !-e $io ) or ( $io->slurp_utf8() ne $$text_ref ) )
    {
        $io->spew_utf8($$text_ref);
    }

    return;
}

sub modify_on_change
{
    my ( $io, $sub_ref ) = @_;

    my $text = $io->slurp_utf8();

    if ( $sub_ref->( \$text ) )
    {
        $io->spew_utf8($text);
    }

    return;
}

sub write_on_change_no_utf8
{
    my ( $io, $text_ref ) = @_;

    if ( ( !-e $io ) or ( $io->slurp() ne $$text_ref ) )
    {
        $io->spew($$text_ref);
    }

    return;
}

sub write_on_change_raw
{
    my ( $io, $text_ref ) = @_;

    if ( ( !-e $io ) or ( $io->slurp_raw() ne $$text_ref ) )
    {
        $io->spew_raw($$text_ref);
    }

    return;
}

1;

__END__