#!/usr/bin/perl
use strict;
use warnings;
use Test::More;

#BEGIN:{ use_ok('CST2'); }

use CST2;

my @patternList = qw(one two three);
my $count = ArrayCount(@patternList);
print "$count\n";