[![Actions Status](https://github.com/kfly8/p5-Contextual-Diag/workflows/test/badge.svg)](https://github.com/kfly8/p5-Contextual-Diag/actions) [![Coverage Status](https://img.shields.io/coveralls/kfly8/p5-Contextual-Diag/master.svg?style=flat)](https://coveralls.io/r/kfly8/p5-Contextual-Diag?branch=master) [![MetaCPAN Release](https://badge.fury.io/pl/Contextual-Diag.svg)](https://metacpan.org/release/Contextual-Diag) # NAME Contextual::Diag - diagnosing perl context # SYNOPSIS ```perl use Contextual::Diag; if (contexual_diag) { } # => warn "evaluated as BOOL in SCALAR context" my $h = { key => contexual_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. ## contexual\_diag() ```perl contexual_diag(@_) => @_ ``` By plugging in the context where you want to know, indicate what the context: ```perl # CASE: wanted LIST context my @t = contexual_diag qw/a b/ my @t = ('a','b', contexual_diag()) # CASE: wanted SCALAR context my $t = contexual_diag "hello" scalar contexual_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