1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#!/bin/sh
##
# Tests the way error messages are formed when using COD::UserMessage
# module in command-line perl as well as reading from SDTIN as input file.
##
#BEGIN DEPEND------------------------------------------------------------------
INPUT_MODULE='src/lib/perl5/COD/UserMessage.pm'
#END DEPEND--------------------------------------------------------------------
echo "test error" | \
perl -e 'use COD::UserMessage qw( error );' \
-e 'while (<>) {' \
-e ' error($0, $ARGV, undef, $_, undef )' \
-e '}'
|
