File Coverage

blib/lib/File/Attributes/Extended.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package File::Attributes::Extended;

use warnings;
use strict;
use base 'File::Attributes::Base';
use File::ExtAttr ':all';
our $VERSION = '0.01';

sub priority { 6 };
sub applicable {
    my $self = shift;
    my $file = shift;

    eval { $self->get($file, 'perltest') };
    return if $@; # can't use
    return 1; # can use
}

sub get {
    my $self = shift;
    my $file = shift;
    my $attr = shift;
    # make warnings fatal
    local $SIG{__WARN__} = sub { die "$_[0] ($!)" };
    return getfattr($file, $attr);
}

sub set {
    my $self = shift;
    my $file = shift;
    my $attr = shift;
    my $value= shift;

    # make warnings fatal
    local $SIG{__WARN__} = sub { die "$_[0] ($!)" };
    setfattr($file, $attr, $value);
    return 1;
}

sub list {
    my $self = shift;
    my $file = shift;

    local $!;
    my @result = listfattr($file);
    die "Error listing attributes: $!" if !@result && $!;
    return @result;
}

sub unset {
    my $self = shift;
    my $file = shift;
    my $attr = shift;

    # make warnings fatal
    local $SIG{__WARN__} = sub { die "$_[0] ($!)" };

    return delfattr($file, "$attr");
}

1;
__END__