GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages
Badger::Comparable(3) User Contributed Perl Documentation Badger::Comparable(3)
 

Badger::Comparable - base class for comparable objects

    package Your::Comparable::Object;
    use base 'Badger::Comparable';
    # You must define a compare method that returns -1, 0 or +1 
    # if the object is less than, equal to, or greater than the 
    # object passed as an argument.
    sub compare {
        my ($this, $that) = @_;
        
        # for example: comparing by a surname field
        return  $this->surname 
            cmp $that->surname;
    }
    package main;
    # assume $obj1 and $obj2 are instance of above object class
    if ($obj1 < $obj2) {
        # do something
    }

This module implements a base class for comparable objects. Subclasses need only define a compare() method and can inherit all the other methods provided. Overloaded comparison operators are also defined.

This method must be defined by subclasses. It received the implicit $self object reference as the first argument and the object it is being compared to as the second.
The method can do whatever is necessary to compare the two objects. It should return "-1" if the $self object should be ordered before the $that object, +1 if it should be ordered after, or 0 if the two objects are considered the same.

Wrapper around compare() that returns true if the two objects are equal ( compare() returns 0).

Wrapper around compare() that returns true if the two objects are not equal ( compare() returns any non-zero value).

Wrapper around compare() that returns true if the $self object is ordered before the $that object passed as an argument ( compare() returns "-1").

Wrapper around compare() that returns the logical opposite of the before() method, returning a true value if the $self object is greater than or equal to the $that object passed as an argument ( compare() returns 0 or +1).

Wrapper around compare() that returns true if the $self object is ordered after the $that object passed as an argument ( compare() returns +1).

Wrapper around compare() that returns the logical opposite of the after() method, returning a true value if the $self object is less than or equal to the $that object passed as an argument ( compare() returns "-1" or 0).

This is mapped to the equal() method.
    if ($obja == $objb) {
        # do something
    }

This is mapped to the not_equal() method.
    if ($obja != $objb) {
        # do something
    }

This is mapped to the before() method.
    if ($obja < $objb) {
        # do something
    }

This is mapped to the after() method.
    if ($obja > $objb) {
        # do something
    }

This is mapped to the not_after() method.
    if ($obja <= $objb) {
        # do something
    }

This is mapped to the not_before() method.
    if ($obja >= $objb) {
        # do something
    }

Andy Wardley <http://wardley.org>

Copyright (C) 2013 Andy Wardley. All Rights Reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
2016-12-12 perl v5.28.1

Search for    or go to Top of page |  Section 3 |  Main Index

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with ManDoc.