Asterisk::LCR::Comparer::Dummy - Dummy Route Comparer for Asterisk::LCR

Asterisk-LCR documentation Contained in the Asterisk-LCR distribution.

Index

Code Index:

NAME

Top

Asterisk::LCR::Comparer::Dummy - Dummy Route Comparer for Asterisk::LCR

SUMMARY

Top

This is a very dumb comparer for Asterisk::LCR::Route object.

ATTRIBUTES

Top

none.

METHODS

Top

$self->sortme ($object1, $object2);

Simply compares $object1->rate() with $object2->rate().

Doesn't care about time increments or even rate currency(!).

Pretty dumb... it would be nice to have better rate comparers but it's a start and can be overriden...

Asterisk-LCR documentation Contained in the Asterisk-LCR distribution. 
package Asterisk::LCR::Comparer::Dummy;
use base qw /Asterisk::LCR::Comparer/;
use warnings;
use strict;


sub sortme
{
    my $self = shift;
    my $arg1 = shift;
    my $arg2 = shift;

    my $rate1 = $arg1->rate();
    my $rate2 = $arg2->rate();

    return +1 if ($rate1 > $rate2);
    return -1 if ($rate2 > $rate1);
    return 0;
}


1;


__END__