NAME

Contextual::Diag - diagnosing perl context

SYNOPSIS

use Contextual::Diag;

if (contextual_diag) { }
# => warn "evaluated as BOOL in SCALAR context"

my $h = { key => contextual_diag 'hello' };
# => warn "wanted LIST context"

DESCRIPTION

Contextual::Diag is a tool for diagnosing perl context. The purpose of this module is to make it easier to learn perl context.

contextual_diag()

contextual_diag(@_) => @_

By plugging in the context where you want to know, indicate what the context:

# CASE: wanted LIST context
my @t = contextual_diag qw/a b/
my @t = ('a','b', contextual_diag())

# CASE: wanted SCALAR context
my $t = contextual_diag "hello"
scalar contextual_diag qw/a b/

LICENSE

Copyright (C) kfly8.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

kfly8 <kfly@cpan.org>