package M3::ServerView::Entry; use strict; use warnings; sub new { my ($pkg) = @_; my $self = bless {}, $pkg; } 1; __END__ =head1 NAME M3::ServerView::Entry - Base class for view entries =head1 DESCRIPTION =head1 INTERFACE =head2 CLASS METHODS =over 4 =item new Creates a new entry. =back =cut