File Coverage

blib/lib/Alien/Web.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	4	8	50.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	28	32	87.5

package Alien::Web;

use strict;
use warnings;

# ABSTRACT: Base class/namespace static web asset distributions on CPAN
our $VERSION = 1.1;

use File::ShareDir qw(dist_dir);
require Path::Class;

sub dir {
  my $class = shift or die "dir() must be called as a class method";

  my $dist_dir = $class->path;

  $dist_dir ? Path::Class::dir($dist_dir) : undef
}


sub path {
  my $class = shift or die "dir() must be called as a class method";

  die "Alien::Web is a base class and is not meant to be called directly"
    if($class eq 'Alien::Web');

  my $dist = $class;
  $dist =~ s/\:\:/\-/g;

  dist_dir($dist)
}

1;

__END__