File Coverage

blib/lib/Text/ConvertPlatform.pm

Criterion	Covered	Total	%
statement	50	58	86.2
branch	4	12	33.3
condition	1	3	33.3
subroutine	8	10	80.0
pod	0	8	0.0
total	63	91	69.2

package Text::ConvertPlatform;
use strict;
use vars qw($VERSION);

$VERSION = '1.00';

sub new {

	my $proto = shift;
	my $class = ref($proto) || $proto;
	my $self  = {};
	$self->{FILENAME} = undef;
	$self->{OLDCONTENTS} = undef;
	$self->{NEWCONTENTS} = undef;
	$self->{CONVERTTO} = undef;
	bless ($self, $class);
	return $self;

	}

sub convert_to {

	my $self = shift;
	if (@_) { $self->{CONVERTTO} = shift }
	return $self->{CONVERTTO};

	}

sub filename {

	my $self = shift;
	if (@_) { $self->{FILENAME} = shift }
	return $self->{FILENAME};

	}

sub newcontents {

	my $self = shift;
	if (@_) { $self->{NEWCONTENTS} = shift }
	return $self->{NEWCONTENTS};

	}

sub oldcontents {

	my $self = shift;
	if (@_) { $self->{OLDCONTENTS} = shift }
	return $self->{OLDCONTENTS};

	}


sub process_file {

	my $self = shift;
	my $mode = $self->{CONVERTTO};
	my $file = $self->{FILENAME};
	my $old = undef;
	my $results = undef;
	open (FILE, "$file");
	while () {
		$old .= $_;
		# convert everything to unix first
		s/\015\012/\012/g;
		s/\015/\012/g;
		# if they want dos format
		s/\012/\015\012/g if ($mode eq "dos");
		# if they want mac format
		s/\012/\015/g if ($mode eq "mac");
		$results .= $_;
		}
	close (FILE);
	$self->{OLDCONTENTS} = $old;
	$self->{NEWCONTENTS} = $results;

}

sub replace_file {

	my $self = shift;
	my $file = $self->{FILENAME};
	open (NEWFILE, ">".$file);
	print NEWFILE $self->{NEWCONTENTS};
	close (NEWFILE);


}

sub backup_file {

	my $self = shift;
	my $file = $self->{FILENAME};
	$file .= ".bak";
	open (BAKFILE, ">$file");
	print BAKFILE $self->{OLDCONTENTS};
	close (BAKFILE);


}

1;

__END__