local-lib5/lib/perl5/Perl6/Junction/Base.pm

   1 package Perl6::Junction::Base;
   2 use strict;
   3 our $VERSION = '1.40000';
   4
   5 use overload(
   6     '=='   => "num_eq",
   7     '!='   => "num_ne",
   8     '>='   => "num_ge",
   9     '>'    => "num_gt",
  10     '<='   => "num_le",
  11     '<'    => "num_lt",
  12     'eq'   => "str_eq",
  13     'ne'   => "str_ne",
  14     'ge'   => "str_ge",
  15     'gt'   => "str_gt",
  16     'le'   => "str_le",
  17     'lt'   => "str_lt",
  18     'bool' => "bool",
  19     '""'   => sub {shift},
  20 );
  21
  22 sub new {
  23     my ( $class, @param ) = @_;
  24     return bless \@param, $class;
  25 }
  26
  27 sub values {
  28     my $self = shift;
  29     return wantarray ? @$self : [ @$self ];
  30 }
  31
  32 1;
  33