use strict;
use Carp qw/confess/;
our $VERSION = '1.302200';
# Overloads '!' for us.
sub name { '<UNDEF>' }
sub operator {
my $self = shift;
return 'IS NOT' if $self->{+NEGATE};
return 'IS';
}
sub verify {
my $self = shift;
my %params = @_;
my ($got, $exists) = @params{qw/got exists/};
return 0 unless $exists;
return !defined($got) unless $self->{+NEGATE};
return defined($got);
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Test2::Compare::Undef - Check that something is undefined
=head1 DESCRIPTION
Make sure something is undefined in a comparison. You can also check that
something is defined.
=head1 SOURCE
The source code repository for Test2-Suite can be found at
=head1 MAINTAINERS
=over 4
=item Chad Granum E<lt>exodist@cpan.orgE<gt>
=back
=head1 AUTHORS
=over 4
=item Chad Granum E<lt>exodist@cpan.orgE<gt>
=back
=head1 COPYRIGHT
Copyright Chad Granum E<lt>exodist@cpan.orgE<gt>.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut