view release on metacpan or  search on metacpan

lib/Asterisk/LCR/Importer/MutualPhone.pm  view on Meta::CPAN

package Asterisk::LCR::Importer::PlainVoip;
use base qw /Asterisk::LCR::Importer/;
use warnings;
use strict;


sub new
{
    my $class = shift;
    my $self  = $class->SUPER::new (@_);
    $self->{prefix_locale}   = 'us';
    $self->{prefix_position} = '0';
    $self->{label_position}  = '1';
    $self->{rate_position}   = '2';
    $self->{first_increment} = '1';
    $self->{increment}       = '1';
    $self->{connection_fee}  = '0';
    $self->{currency}        = 'USD';
    $self->{uri}             = 'http://mutualphone.com/mutualphone-a-z.csv';
    return $self;
}


1;


__END__