Fedora::Bugzilla::NewBug - New bug class

    use Fedora::Bugzilla;

    my $bz = Fedora::Bugzilla->new(...);

    # fetch a bug
    my $bug1 = $bz->get_bug('123456');
    my $bug2 = $bz->get_bug('perl-Moose');

    # etc

    Free Software Foundation, Inc., 
    59 Temple Place, Suite 330, 
    Boston, MA  02111-1307 USA

#############################################################################
#
# An interface to Fedora's Bugzilla. 
#
# Author:  Chris Weyl (cpan:RSRCHBOY), <cweyl@alumni.drew.edu>
# Company: No company, personal work
# Created: 12/29/2008 11:06:54 AM PST
#
# Copyright (c) 2008 Chris Weyl <cweyl@alumni.drew.edu>
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
#
#############################################################################

package Fedora::Bugzilla::NewBug;

use Moose;
use MooseX::StrictConstructor;
use MooseX::AttributeHelpers;

use Moose::Util::TypeConstraints;
use MooseX::Types::URI qw{ Uri };
use MooseX::Types::DateTime qw{ DateTime };

use namespace::clean -except => 'meta';

our $VERSION = '0.13';

########################################################################
# our types / coercions

########################################################################
# required attributes 

# we define our attributes here, 1) so we can to type checking and coercion,
# 2) so we can define different types of newbugs :)

has product => (
    is         => 'rw',
    isa        => 'Str',   # FIXME do we want to validate too?
    required   => 1,
    predicate  => 'has_product',
);

has component => (
    is         => 'rw',
    isa        => 'Str',   # FIXME do we want to validate too?
    required   => 1,
    predicate  => 'has_component',
);

has summary => (
    is         => 'rw',
    isa        => 'Str',   # FIXME do we want to validate too?
    required   => 1,
    predicate  => 'has_summary',
);

has version => (
    is         => 'rw',
    isa        => 'Str',   # FIXME do we want to validate too?
    required   => 1,
    predicate  => 'has_version',
);

########################################################################
# optional attributes 


########################################################################
# actual bug attributes 

# note we provide builders here, even when we're just returning them as
# 'undef', as this will make it easier to subclass and override them.

my @defaults = (is => 'rw', lazy_build => 1, isa => 'Maybe[Str]');

has alias => (
    is   => 'rw',
    isa  => 'Maybe[Str]',
    lazy_build => 1,
);
sub _build_alias { undef }

my @attrs = qw{ 
        dependson assigned_to comment version op_sys platform 
        severity priority blocked 
    };

has [ @attrs ] => (is => 'rw', lazy_build => 1, isa => 'Maybe[Str]');

has bug_file_loc => (
    is => 'rw', 
    isa => Uri, 
    coerce => 1, 
    lazy_build => 1,
);

# some sensible defaults, too
sub _build_version      { undef }
sub _build_op_sys       { undef }
sub _build_platform     { undef }
sub _build_severity     { undef }
sub _build_priority     { undef }
sub _build_blocked      { undef }
sub _build_dependson    { undef }
sub _build_bug_file_loc { undef }

sub url { shift->bug_file_loc(@_) }

########################################################################
# create a hashref capable of being passed to Bugzilla.create_bug() 

sub bughash {
    my $self = shift @_;

    # get all our attributes (including parent classes if we're subclassed)
    my @all_attrs = $self->meta->get_all_attributes;
    my @atts;

    for my $att (@all_attrs) {

        my $has = 'has_' . $att->name;
        push @atts, $att->name
            if $self->$has;
    }

    #my %data = map { $_ => $self->$_ } @atts;
    my %data = map { my $v = $self->$_; $_ => $v } @atts;

    ### %data

    return \%data;
}

########################################################################
# magic end bits 

__PACKAGE__->meta->make_immutable;

1;

__END__