view release on metacpan or  search on metacpan

lib/CORBA/HTML/HtmlVisitor.pm  view on Meta::CPAN

    my ($parser) = @_;
    $self->{parser} = $parser;
    $self->{symbtab} = $parser->YYData->{symbtab};
    $self->{frameset} = exists $parser->YYData->{opt_f};
    $self->{html_name} = new CORBA::HTML::NameVisitor($parser);
    $self->{html_decl} = new CORBA::HTML::DeclVisitor($self);
    $self->{html_comment} = new CORBA::HTML::CommentVisitor($self);
    $self->{scope} = q{};
    $self->{css} = $parser->YYData->{opt_s};
    $self->{style} = q{
        a.index { font-weight : bold; }
        h2 { color : red; }
        p.comment { color : green; }
        span.comment { color : green; }
        span.decl { font-weight : bold; }
        span.tag { font-weight : bold; }
        hr { text-align : center; }
    };
    return $self;
}

sub _get_defn {
    my $self = shift;
    my($defn) = @_;
    if (ref $defn) {
        return $defn;