use Modern::Perl;
use C4::ClassSplitRoutine::LCC qw( split_callnumber );
use C4::ClassSplitRoutine::LCC;
use Test::More tests => 12;
use Test::NoWarnings;
use Test::More;
-