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