File Coverage

blib/lib/Brackup/DecryptedFile.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	4	50.0
condition	2	6	33.3
subroutine	7	7	100.0
pod	0	2	0.0
total	35	43	81.4

package Brackup::DecryptedFile;

use strict;
use warnings;
use Carp qw(croak);
use Brackup::Decrypt;

sub new {
  my ($class, %opts) = @_;
  my $self = bless {}, $class;

  $self->{original_file} = delete $opts{filename};    # filename we're restoring from

  die "File $self->{original_file} does not exist"
        unless $self->{original_file} && -f $self->{original_file};
  croak("Unknown options: " . join(', ', keys %opts)) if %opts;

  # decrypted_file might be undef if no decryption was needed.
  $self->{decrypted_file} = Brackup::Decrypt::decrypt_file_if_needed($self->{original_file});

  return $self;
}

sub name {
    my $self = shift;
    return $self->{decrypted_file} || $self->{original_file};
}

sub DESTROY {
    my $self = shift;
    unlink(grep { $_ } ($self->{decrypted_file}));
}

1;