#!/usr/bin/perl

use Data::Dumper;
use Klass;

my $k = Klass->new;
$k->loadkltable( theme => 'Category', filename => 'categories.cla' );
$k->loadkltable( theme => 'Experience', filename => 'experience.cla' );
#$k->loadkltable( theme => 'jj', filename => 'CaseStudy/old.cla' );

my $cl = $k->klassString( str => "Téc. Suporte de Sistemas / Programador Júnior");
#my $cl1 = $k->klassString( str => "Programador Júnior");

#my $cl2 = $k->klassFile( filename => "CaseStudy/xx1122" );

#print Dumper $cl1;
print Dumper $cl;



exit;

#klass::loadkltable("my.cla");

#%c = klass::klassStr("Téc. Suporte de Sistemas / Programador Júnior");

#print Dumper \%c;