view release on metacpan or  search on metacpan

lib/Asterisk/LCR/Dialer/MinTime.pm  view on Meta::CPAN

package Asterisk::LCR::Dialer::MinTime;
use base qw /Asterisk::LCR::Dialer::MinCost/;
use warnings;
use strict;


sub _process
{
    my $self  = shift;
    my $dial  = $self->SUPER::_process (@_);
    my $str   = join '&', @{$dial};
    return [ $str ];
}


1;


__END__