my ($tagname, $self) = @_;
if ($tagname eq "cc-name") {
    ...
}
elsif ($tagname eq "cc_info") {
    ...
}
...