SWE/Object/Page.pm

package SWE::Object::Page;
use strict;
use warnings;

sub new ($%) {
  my $class = shift;
  my $self = bless {@_}, $class;

  return $self;
}

sub db ($) { $_[0]->{db} }

sub name ($) {
  return $_[0]->{name};
}

1;
1	package SWE::Object::Page;
2	use strict;
3	use warnings;
4
5	sub new ($%) {
6	my $class = shift;
7	my $self = bless {@_}, $class;
8
9	return $self;
10	}
11
12	sub db ($) { $_[0]->{db} }
13
14	sub name ($) {
15	return $_[0]->{name};
16	}
17
18	1;