File Coverage

blib/lib/Sys/Ramdisk.pm

Criterion	Covered	Total	%
statement	45	69	65.2
branch	7	22	31.8
condition	1	3	33.3
subroutine	11	13	84.6
pod	2	6	33.3
total	66	113	58.4

###########################################
package Sys::Ramdisk;
###########################################
use strict;
use warnings;
use Log::Log4perl qw(:easy);
use Sysadm::Install qw(:all);
use File::Temp qw(tempdir);
use File::Basename;

our $VERSION = "0.02";

my %class_mapper =
  map { $_->[0] => __PACKAGE__ . "::" . $_->[1] }
    ( [linux  => "Linux"],
      [macos  => "OSX"],
      [osx    => "OSX"],
      [darwin => "OSX"],
    );

###########################################
sub new {
###########################################
    my($class, %options) = @_;

    my $self = {
        cleanup => 1,
        %options,
    };

    if(! defined $self->{dir}) {
        $self->{dir} = tempdir( CLEANUP => 1 );
    }

    if(! defined $self->{size}) {
        $self->{size} = "100m";
    }

    my $subclass = os_class_find();

    eval "require $subclass";

    bless $self, $subclass;

    return $self;
}

###########################################
sub os_supported_list {
###########################################
    (my $path = __PACKAGE__) =~ s/::/\//g;
    $path = "$path.pm";

    my $dir = $INC{$path};
    $dir =~ s/\.pm$//;

    my @classes = ();

    opendir DIR, "$dir" or LOGDIE "Cannot opendir $dir ($!)";
    for my $dir (readdir DIR) {
        next if $dir eq ".";
        next if $dir eq "..";
        $dir =~ s/\.pm$//;
        push @classes, $dir;
    }

    closedir DIR;

    return @classes;
}

###########################################
sub os_find {
###########################################
    my $uname = bin_find("uname");

    if(! defined $uname) {
        LOGWARN "uname command not found in PATH";
        return undef;
    }

    my($uname_info) = tap $uname;
    chomp $uname_info;

    if(! defined $uname or length $uname == 0) {
        LOGWARN "uname didn't return anything meaningful";
        return undef;
    }

    return $uname_info;
}

###########################################
sub os_class_find {
###########################################
    my $os = os_find();

    my $keyword = lc $os;

    if(exists $class_mapper{ $keyword }) {
        my $class = $class_mapper{ $keyword };

        DEBUG "Found class $class";
        return $class;
    }

    WARN "OS '$os' not supported (yet). Please contact the maintainer";
    return undef;
}

###########################################
sub dir {
###########################################
    my($self, $dir) = @_;

    if(defined $dir) {
        $self->{dir} = $dir;
    }

    return $self->{dir};
}

###########################################
sub DESTROY {
###########################################
    my($self, $dir) = @_;

    $self->unmount() if $self->{cleanup};
}

###########################################
sub size_normalize {
###########################################
    my($self, $size) = @_;

    if($size =~ /(\d+)m/) {
        return $1 * 1024 * 1024;
    }

    return $size;
}

1;

__END__