Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / Perl6 / Junction / Base.pm

diff --git a/local-lib5/lib/perl5/Perl6/Junction/Base.pm b/local-lib5/lib/perl5/Perl6/Junction/Base.pm
new file mode 100644 (file)
index 0000000..9b7eb99
--- /dev/null
+++ b/local-lib5/lib/perl5/Perl6/Junction/Base.pm
@@ -0,0 +1,33 @@
+package Perl6::Junction::Base;
+use strict;
+our $VERSION = '1.40000';
+
+use overload(
+    '=='   => "num_eq",
+    '!='   => "num_ne",
+    '>='   => "num_ge",
+    '>'    => "num_gt",
+    '<='   => "num_le",
+    '<'    => "num_lt",
+    'eq'   => "str_eq",
+    'ne'   => "str_ne",
+    'ge'   => "str_ge",
+    'gt'   => "str_gt",
+    'le'   => "str_le",
+    'lt'   => "str_lt",
+    'bool' => "bool",
+    '""'   => sub {shift},
+);
+
+sub new {
+    my ( $class, @param ) = @_;
+    return bless \@param, $class;
+}
+
+sub values {
+    my $self = shift;
+    return wantarray ? @$self : [ @$self ];
+}
+
+1;
+