File Coverage

blib/lib/BioX/FedDB/Base.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package BioX::FedDB::Base;
use Class::Std;
use Class::Std::Utils;
use DBIx::MySperqlOO;
use File::Spec;
use YAML qw(DumpFile LoadFile);

use warnings;
use strict;
use Carp;

use version; our $VERSION = qv('0.0.1');

{
	my %dbh_of        :ATTR();
        my %attribute_of  :ATTR( :get   :set   :default<''>    :init_arg );

	sub dbh              { my ( $self ) = @_; return $dbh_of{ident $self}; }

        sub BUILD {
                my ($self, $ident, $arg_ref) = @_;

		$dbh_of{$ident}     = DBIx::MySperqlOO->new( $arg_ref->{connection} );

                return;
        }

        sub _sum {
                my ( $self, @values ) = @_;
		my $total             = 0;
		foreach my $value ( @values ) {
			$total += $value;
		}
		return $total;
        }

	sub _sql_escape {
		my ( $self, $string ) = @_;
		if ($string) { $string =~ s/(['"\\])/\\$1/g; }
		return $string;
	}

	sub _html_to_sql {
		my ( $self, $string ) = @_;
		$string = $self->_html_unescape( $string );
		$string = $self->_sql_escape( $string );
		return $string;
	}

	sub _html_escape {
		my ( $self, $string ) = @_;
		$string =~ s/'/'/g;
		$string =~ s/"/"/g;
		return $string;
	}

	sub _html_encode {
		my ( $self, $string ) = @_;
		$string =~ s/ /%20/g;
		$string =~ s/'/%27/g;
		$string =~ s/\{/%7B/g;
		$string =~ s/\}/%7D/g;
		return $string;
	}

	sub _html_unescape {
		my ( $self, $string ) = @_;
		$string =~ s/'/'/g;
		$string =~ s/"/"/g;
		$string =~ s/%20/ /g;
		return $string;
	}

	sub _phone_format {
		my ( $self, $string ) = @_;
		$string =~ s/(\d{3})(\d{3})(\d{4})/($1) $2-$3/;
		return $string;
	}

	sub _phone_unformat {
		my ( $self, $string ) = @_;
		$string =~ s/[^\d]//g;
		return $string;
	}

	sub _commify { # Perl Cookbook 2.17
		my ( $self, $string ) = @_;
		my $text = reverse $string;
		$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
		return scalar reverse $text;
	}



}

1; # Magic true value required at end of module
__END__