File Coverage

blib/lib/Doit/Guarded.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	8	8	100.0
condition	4	6	66.6
subroutine	8	8	100.0
pod	0	5	0.0
total	46	53	86.7

# -*- perl -*-

#
# Author: Slaven Rezic
#
# Copyright (C) 2017,2018 Slaven Rezic. All rights reserved.
# This package is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Mail: [e-mail]
# WWW:  http://www.rezic.de/eserte/
#

package Doit::Guarded;

use strict;
use warnings;
our $VERSION = '0.011';

use Exporter 'import';
our @EXPORT = qw(ensure using);

sub ensure (&;@) {
    my $code = shift;
    (ensure => $code, @_);
}

sub using (&) {
    my $code = shift;
    (using => $code, @_);
}

sub new { bless {}, shift }
sub functions { qw(guarded_step) }

sub guarded_step {
    my($doit, $name, %opts) = @_;
    my $ensure = delete $opts{ensure} || Doit::Log::error("ensure is missing");
    my $using  = delete $opts{using}  || Doit::Log::error("using is missing");
    Doit::Log::error("Unhandled options: " . join(" ", %opts)) if %opts;

    if (!$ensure->($doit)) {
	if ($doit->is_dry_run) {
	    Doit::Log::info("$name (dry-run)");
	} else {
	    Doit::Log::info($name);
	    $using->($doit);
	    if (!$ensure->($doit)) {
		Doit::Log::error("'ensure' block for '$name' still fails after running the 'using' block");
	    }
	}
    }
}

1;

__END__