File Coverage

blib/lib/Lustre/LFS/File.pm

Criterion	Covered	Total	%
statement	12	29	41.3
branch	0	12	0.0
condition	0	2	0.0
subroutine	4	7	57.1
pod	3	3	100.0
total	19	53	35.8

#
# 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::File;
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_file($self);
}

########################################################################
# This is not implemented yet
sub join_objects {
	return undef;
}

########################################################################
# Creates a new file with specified striping parameters
sub lfs_create {
	my($self, %args) = @_;
	my $fname = delete($args{File}) or return undef;
	my $ssize = delete($args{Size});
	my $soff  = delete($args{Offset});
	my $scount= delete($args{Count});
	my $spool = delete($args{Pool});

	my @arglist = ("setstripe");

	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);

	Lustre::LFS::_lfs_system(@arglist) ||
	$self->open("+> $fname")           &&
	return 1;
	# else
	return 0;
}



1;

__END__