/usr/local/CPAN/WebService-Backlog/WebService/Backlog/SwitchStatus.pm

• package WebService::Backlog::SwitchStatus
  • hash
• __END__
• EOF

package WebService::Backlog::SwitchStatus;

# $Id$

use strict;
use warnings;

use base qw(Class::Accessor::Fast);

my @PARAMS = qw/
  key summary statusId
  resolutionId assignerId comment
  /;

__PACKAGE__->mk_accessors(@PARAMS);

sub hash {
    my $self = shift;
    my $hash = {};
    for my $p (@PARAMS) {
        $hash->{$p} = $self->$p if (defined $self->$p);
    }
    return $hash;
}

1;
__END__