File Object (Java cloning)

File.pm

#!/usr/bin/perl
use strict;
package File;

=head1

 Title     : new
 Usage     : my $fileobj=File->new(-file=>"D\\testing.txt")
 Function  : Creates a File Object
 Returns   : None
 Argument  : a file or file handle 
 
=cut

sub new{
	my $class=shift;
	my $self={@_};
	bless ($self,$class);
	$self->_initialize(@_);
	return $self;
}

=head1

 Title     : file_read
 Usage     : $fileobj->file_read()
 Function  : Reads a File
 Returns   : filecontents buffer
 Argument  : file object (optional)


=cut

sub file_read{
	my $self=shift;
	open(FH,"$self->{file}") or die $!;
	$self->{filebuf} = join '', <FH>; 
	close(FH);
	return $self->{filebuf};
}





=head2  _initialize
 
 Private Method to initialize contructor arguments in a hash
 
=cut

sub _initialize {
	my $self = shift;
	# my @params = qw(verbose conf file);
	while ( @_ ) {
		( my $key = shift ) =~ s/^-//;
		$self->{$key} = shift;
	}
 	if (exists($self->{mode}))
 	{
 		$self->mode($self->{mode});
 	}
}