Commit | Line | Data |
3fea05b9 |
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 | |