view release on metacpan or  search on metacpan

Centipaid.pm  view on Meta::CPAN

sub to_seconds ($) {
    my $duration = shift(@_);
    my $multi;
    my $seconds;

    if ( $duration =~ /^(\d+)(.+)/ ) {
    	my $num = $1;
	my $ltr = $2;
		if ( lc($ltr) eq "m" ) { $multi = 30*24*60*60;}
		if ( lc($ltr) eq "w" ) { $multi = 7*24*60*60;}
		if ( lc($ltr) eq "d" ) { $multi = 24*60*60;}
		if ( lc($ltr) eq "h" ) { $multi = 60*60;}
		$seconds = $multi * $num;
	}

    return $seconds;

}

RCS/Centipaid.pm,v  view on Meta::CPAN

sub to_seconds ($) {
    my $duration = shift(@@_);
    my $multi;
    my $seconds;

    if ( $duration =~ /^(\d+)(.+)/ ) {
    	my $num = $1;
	my $ltr = $2;
		if ( lc($ltr) eq "m" ) { $multi = 30*24*60*60;}
		if ( lc($ltr) eq "w" ) { $multi = 7*24*60*60;}
		if ( lc($ltr) eq "d" ) { $multi = 24*60*60;}
		if ( lc($ltr) eq "h" ) { $multi = 60*60;}
		$seconds = $multi * $num;
	}

    return $seconds;

}