xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/uncalled-subroutine (revision f6aab3d83b51b91c24247ad2c2573574de475a82)
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6exit(0);
7
8sub uncalled_subroutine
9{
10    print '<', join(',', 1 .. 5), ">\n";
11}
12