File Coverage

blib/lib/File/Attributes/Base.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	27	27	100.0

#!/usr/bin/perl
# Base.pm
# Copyright (c) 2006 Jonathan Rockway

# see POD after __END__

package File::Attributes::Base;
use strict;
use warnings;
use Carp;

sub new {
    my $class = shift;
    my $self = \my $foo;
    bless $self, $class;
    return $self;
}

sub priority {
    my $self = shift;
    return 0;
}

sub applicable {
    my $self     = shift;
    my $filename = shift;
    return 0;
}

1;
__END__