add perl critic unit test