package ForumMessage;
use strict;
use base qw(XNObject);

sub new {
	my $class = shift;
	my $self = $class->SUPER::new(@_);

	my %fields = (
		_type => 'forum_message',
	);
	
	@{$self}{keys %fields} = values %fields;

	bless $self, $class;
}
#other stuff skipped
1;