#! /usr/bin/perl
use Switch;
use strict;
use warnings;
our $VERSION = 0.01;
sub foo {
switch $test {
case 'a' {print 'a'}
}
}
Subroutine does not end with "return" at line 9, column 1. See page 197
of PBP. (Severity: 4)
Adding ';' after the '}' that closes the switch resolves the problem