package Ruler;

sub new {
  bless $_[1],$_[0];
}

sub list_fiefdoms {
  my $self = shift;
  print join(",",@{$self->{fiefdoms}})."\n";
}
1;