annotate _test/temp.pl @ 398:38cb0b80e88e

minor changes
author sergey
date Thu, 08 May 2014 03:53:17 +0400
parents 212cc86e470b
children f23fcb19d3c1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
210
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
1 #!/usr/bin/perl
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
2 use strict;
395
212cc86e470b Code cleanup
sergey
parents: 381
diff changeset
3
398
38cb0b80e88e minor changes
sergey
parents: 395
diff changeset
4 my $p = 'sometype';
38cb0b80e88e minor changes
sergey
parents: 395
diff changeset
5 my $c = 'My::App::aSomeType';
210
6adaeb86945d added IMPL::Web::AutoLocator
sergey
parents: 209
diff changeset
6
398
38cb0b80e88e minor changes
sergey
parents: 395
diff changeset
7 my $suffix = substr($c, -length($p));
38cb0b80e88e minor changes
sergey
parents: 395
diff changeset
8 my $prefix = substr($c, 0, -length($p));
38cb0b80e88e minor changes
sergey
parents: 395
diff changeset
9 print join ("\n",$suffix,$prefix,$p,$c), "\n";
395
212cc86e470b Code cleanup
sergey
parents: 381
diff changeset
10
398
38cb0b80e88e minor changes
sergey
parents: 395
diff changeset
11 print $prefix && not(substr($prefix,-2) eq '::') ? 'corrupted' : 'class' ;