package Body;

# class for storing information about a Body

use warnings;
use strict;
use Carp;

sub new {
	my $class = shift;
	my $self = {};
	bless $self, $class;
	return $self;
}

sub accept {
	my $self = shift;
	my $visitor = shift;
	$visitor->visitBody($self);
}

1;