File Coverage

blib/lib/Person/CNPclass.pm

Criterion	Covered	Total	%
statement	11	49	22.4
branch	0	16	0.0
condition			n/a
subroutine	4	15	26.6
pod	0	10	0.0
total	15	90	16.6

package Person::CNPclass;

use 5.018002;
use strict;
use warnings;
use Carp;
#THIS IS NO NEEDED----------------------------------------------------------
#require Exporter;
#our @ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# This allows declaration	use Person::CNPclass ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
#our %EXPORT_TAGS = ( 'all' => [ qw() ] );
#our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
#our @EXPORT = qw(	);
#THIS IS NO NEEDED-------------------------------------------------------END
our $VERSION = '0.01';
#Class for storing data about a person:
#	nume	Methods: getNume()	setNume()
#	prenume	Methods: getPrenume()	setPrenume()
#	CNP Cod Numeric Personal	Methods: getCNP()	setCNP()
#	nrTel
#
#	Email
# Author: Mihai Cornel	[e-mail]	0722270796
# File:	CNPclass1.pm
# Date: 20/10/2015

# Preloaded methods go here.--------------------------------------------
# Class atributes -------------------------------------------
my @Everyone;

# The Constructor -------------------------------------------
sub new {
	my $class = shift;
	my $self = {
		_nume	=> shift,
		_prenume=> shift,
		_cnp	=> shift,
		_nrTel	=> shift,
		};		# hash referance
	bless ($self, $class);	# Transformarea referintei in obiect
	$self->_init;
	return $self;		# We send object back
	# Print all the values just for clarification--------------------------
	print "Numele DVS. este : $self->{_nume}\n";
}

sub _init {
	my $self = shift;
	push @Everyone, $self;
	carp "New object created";
}

# Creating Methods (get//set) ----------------------------------------------------
sub getNume {
	my $self = shift;
	unless (ref $self) {
		croak "Should call getNume() with an object, not a class";
	}
	return $self->{ _nume };
}

sub setNume {
	my ($self, $nume) = @_;
	$self->{_nume} = $nume if defined ($nume);
	return $self->{_nume};
}

sub getPrenume {
	my $self = shift;
	unless (ref $self) {
		croak "Should call getPrenume() with an object, not a class";
	}
	return $self->{_prenume};
}

sub setPrenume {
	my ($self, $prenume) = @_;
	$self->{_prenume}= $prenume if defined ($prenume);
	return $self->{_prenume};
}

sub getCNP {
	my $self = shift;
	unless (ref $self) {
		croak "Should call getCNP() with an object, not a class";
		}
	return $self->{ _cnp };
}

sub setCNP {
	my($self, $cnp) = @_;
	$self->{_cnp} = $cnp if defined ($cnp);
	return $self->{_cnp};
}

sub getNrTel {
	my $self = shift;
	unless (ref $self) {
		croak "Should call hrtNrTel() with an object, not a class";
	}
	return $self->{_nrTel};
}

sub setNrTel {
	my($self, $nrTel) = @_;
	$self->{_nrTel} = $nrTel if defined ($nrTel);
	return $self->{_nrTel};
}


sub afiseazaVersion {
	#print getNume()." ".getPrenume()."\n";
	print "Salut din ROMANIA!  This is version $VERSION of this upload script!\n";;

}
1;
__END__