Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

use 5.014;
use strict;
use Data::Object 'Class';
our $VERSION = '1.86'; # VERSION
# BUILD
has arg1 => (
is => 'ro',
isa => 'HashLike',
req => 1
);
has arg2 => (
is => 'ro',
isa => 'HashLike',
req => 1
);
# METHODS
sub execute {
my ($self) = @_;
$self->throw("Equal-to is not supported");
return;
}
sub mapping {
return ('arg1', 'arg2');
}
1;
=encoding utf8
=head1 NAME
Data::Object::Hash::Func::Eq
=cut
=head1 ABSTRACT
Data-Object Hash Function (Eq) Class
=cut
=head1 SYNOPSIS
use Data::Object::Hash::Func::Eq;
my $func = Data::Object::Hash::Func::Eq->new(@args);
$func->execute;
=cut
=head1 DESCRIPTION
Data::Object::Hash::Func::Eq is a function object for Data::Object::Hash.
=cut
=head1 INHERITANCE
This package inherits behaviors from:
L<Data::Object::Hash::Func>
=cut
=head1 LIBRARIES
This package uses type constraints defined by:
L<Data::Object::Library>
=cut
=head1 ATTRIBUTES
This package has the following attributes.
=cut
=head2 arg1
arg1(Object)
The attribute is read-only, accepts C<(Object)> values, and is optional.
=cut
=head2 arg2
arg2(HashLike)
The attribute is read-only, accepts C<(HashLike)> values, and is optional.
=cut
=head1 METHODS
This package implements the following methods.
=cut
=head2 execute
execute() : Object
Executes the function logic and returns the result.
=over 4
=item execute example
my $data = Data::Object::Hash->new({1..8});
my $func = Data::Object::Hash::Func::Eq->new(
arg1 => $data,
arg2 => {1..4}
);
my $result = $func->execute;
=back
=cut
=head2 mapping
mapping() : (Str)
Returns the ordered list of named function object arguments.
=over 4
=item mapping example
my @data = $self->mapping;
=back
=cut
=head1 CREDITS
Al Newkirk, C<+315>
Anthony Brummett, C<+10>
Adam Hopkins, C<+2>
José Joaquín Atria, C<+1>
=cut
=head1 AUTHOR
Al Newkirk, C<awncorp@cpan.org>
=head1 LICENSE
Copyright (C) 2011-2019, Al Newkirk, et al.
This is free software; you can redistribute it and/or modify it under the terms
of the The Apache License, Version 2.0, as elucidated here,
=head1 PROJECT
=head1 SEE ALSO
To get the most out of this distribution, consider reading the following:
L<Do>
L<Data::Object>
L<Data::Object::Class>
L<Data::Object::ClassHas>
L<Data::Object::Role>
L<Data::Object::RoleHas>
L<Data::Object::Library>
=cut