{
  ## accepted attributes
  my %options = map { $_ => undef } qw/ from_node to_node label /;
  sub new {
    my $class = shift;
    bless {
      %options,
      map { exists $options{$_} ? ( $_ => 1 ) : () } @_
    }, $class
  }
}