#!/usr/bin/perl
use strict;

my $p = 'sometype';
my $c = 'My::App::aSomeType';

my $suffix = substr($c, -length($p));
my $prefix = substr($c, 0, -length($p));
print join ("\n",$suffix,$prefix,$p,$c), "\n";

print $prefix && not(substr($prefix,-2) eq '::') ? 'corrupted' : 'class' ;