#!/usr/bin/perl 

use strict;
use utf8;
use warnings; 

use FindBin;
use lib $FindBin::Bin; 
use lib $FindBin::Bin."/../../../../../../"; 

use com::oclib::perl::lang::root::20070211::Root;

print "\n\nstringTest.pl has beggined\n";

my $test = new com::oclib::perl::lang::root::20070211::Root();
print "classCreated: ".$test->get("classCreated")."\n";
print "classCreator: ".$test->Get("classCreator")."\n";
print "classEditors: ".$test->getAttribute("classEditors")."\n";
print "classHistory: ".$test->GetAttribute("classHistory")."\n";
print "classIndexLocation: ".$test->getParam("classIndexLocation")."\n";
print "classLocation: ".$test->GetParam("classLocation")."\n";
print "className: ".$test->get("className")."\n";
print "classNamespace: ".$test->get("classNamespace")."\n";
print "classVersion: ".$test->get("classVersion")."\n";
print "classVersionIndexLocation: ".$test->get("classVersionIndexLocation")."\n";
print "classVersionLocation: ".$test->get("classVersionLocation")."\n";

print "stringTest.pl has ended\n\n";