/usr/local/CPAN/Asterisk-LCR/Asterisk/LCR/Dialer/MinTime.pm

• package Asterisk::LCR::Dialer::MinTime
  • _process
• __END__
• EOF

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__