1package Text::Trac::Node; 2use strict; 3use warnings; 4use base qw( Class::Accessor::Fast ); 5 6our $VERSION = '0.24'; 7 8sub init { 9 my $self = shift; 10 $self->{pattern} = ''; 11} 12 13sub parse { die; } 14 15sub html { $_[0]->{html}; } 16sub pattern { $_[0]->{pattern}; } 17 18sub context { 19 my $self = shift; 20 $self->{context} = $_[0] if $_[0]; 21 $self->{context}; 22} 23 241; 25