File Coverage

blib/lib/Lustre/LFS/Dir.pm

Criterion	Covered	Total	%
statement	12	32	37.5
branch	0	16	0.0
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	58	32.7

#
# PurePerl implementation glue to '/usr/sbin/lfs'
#
# (C) 2010 Adrian Ulrich -
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
#

package Lustre::LFS::Dir;
use strict;
use Lustre::LFS;
use IO::File;
use base 'IO::File';


########################################################################
# Return stripe information for opened file
sub get_stripe {
	my($self) = @_;
	return Lustre::LFS::_parse_get_stripe_dir($self);
}

########################################################################
# Set stripe information for current folder
sub set_stripe {
	my($self, %args) = @_;
	my $fname = Lustre::LFS::_lfs_get_path($self);
	my $ssize = delete($args{Size});
	my $soff  = delete($args{Offset});
	my $scount= delete($args{Count});
	my $spool = delete($args{Pool});
	my @arglist = ("setstripe");

	return $fname unless defined $fname;

	push(@arglist, "--size"  , int($ssize))  if defined $ssize;
	push(@arglist, "--offset", int($soff))   if defined $soff;
	push(@arglist, "--count" , int($scount)) if defined $scount;
	push(@arglist, "--pool"  , $spool)       if defined $spool;
	push(@arglist, "--"      , $fname);

	return ( Lustre::LFS::_lfs_system(@arglist) ? 0 : 1 );
}


########################################################################
# Remove stripe
sub delete_stripe {
	my($self) = @_;
	my $path = Lustre::LFS::_lfs_get_path($self);
	return $path unless defined $path;
	return ( Lustre::LFS::_lfs_system("setstripe", "-d", "--", $path) ? 0 : 1);
}

1;

__END__