Text::CSV::Track::Max - same as Text::CSV::Track but stores the greatest value

Text-CSV-Track documentation Contained in the Text-CSV-Track distribution.

Index

Code Index:

NAME

Top

Text::CSV::Track::Max - same as Text::CSV::Track but stores the greatest value

VERSION

Top

This documentation refers to version 0.3.

SYNOPSIS

Top

see Text::CSV::Track as this is inherited object from it.

DESCRIPTION

Top

Only difference to Track is that before value is changed it is compared to the old one. It it's higher then the value is updated if not old value persists.

METHODS

Top

value_of()

Overridden function from Text::CSV::Tack that stores value only if it is greater then the one before.

Text-CSV-Track documentation Contained in the Text-CSV-Track distribution. 
package Text::CSV::Track::Max;

our $VERSION = '0.3';
use 5.006;

use strict;
use warnings;

use base qw(Text::CSV::Track);

use FindBin;

use Text::CSV_XS;
use Carp::Clan;


sub value_of {
	my $self          = shift;
	my $identificator = shift;
	my $is_set        = (@_ > 0 ? 1 : 0);	#get or set request depending on number of arguments
	my $value         = shift;

	#variables from self hash
	my $rh_value_of    = $self->_rh_value_of;

	#check if we have identificator
	return if not $identificator;

	#if get call super value_of
	return $self->SUPER::value_of($identificator) if not $is_set;
	
	#set
	my $old_value;
	if (exists $rh_value_of->{$identificator}) {	#don't call SUPER::value_of because it will active lazy init that is may be not necessary
		$old_value = ${$rh_value_of->{$identificator}}[0];
	}
	if (not defined $value
			or not defined $old_value
			or ($old_value < $value)
			
			) {		#if it is removel or the old value is smaller then set it
		$self->SUPER::value_of($identificator, $value);
	}
}


1;