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	wakaba	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;