.\" -*- mode: troff; coding: utf-8 -*-
.\" Automatically generated by Pod::Man v6.0.2 (Pod::Simple 3.48)
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" \*(C` and \*(C' are quotes in nroff, nothing in troff, for use with C<>.
.ie n \{\
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{\
.    if \nF \{\
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{\
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\"
.\" Required to disable full justification in groff 1.23.0.
.if n .ds AD l
.\" ========================================================================
.\"
.IX Title "MooseX::OneArgNew 3"
.TH MooseX::OneArgNew 3 2026-10-26 "perl v5.44.0" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH SYNOPSIS
.IX Header "SYNOPSIS"
In our class definition:
.PP
.Vb 6
\&  package Delivery;
\&  use Moose;
\&  with(\*(AqMooseX::OneArgNew\*(Aq => {
\&    type     => \*(AqExisting::Message::Type\*(Aq,
\&    init_arg => \*(Aqmessage\*(Aq,
\&  });
\&
\&  has message => (isa => \*(AqExisting::Message::Type\*(Aq, required => 1);
\&
\&  has to => (
\&    is   => \*(Aqro\*(Aq,
\&    isa  => \*(AqStr\*(Aq,
\&    lazy => 1,
\&    default => sub {
\&      my ($self) = @_;
\&      $self\->message\->get(\*(AqTo\*(Aq);
\&    },
\&  );
.Ve
.PP
When making a message:
.PP
.Vb 1
\&  # The traditional way:
\&
\&  my $delivery = Delivery\->new({ message => $message });
\&  # or
\&  my $delivery = Delivery\->new({ message => $message, to => $to });
\&
\&  # With one\-arg new:
\&
\&  my $delivery = Delivery\->new($message);
.Ve
.SH DESCRIPTION
.IX Header "DESCRIPTION"
MooseX::OneArgNew lets your constructor take a single argument, which will be
translated into the value for a one\-entry hashref.  It is a parameterized
role with three parameters:
.SS WARNINGS
.IX Subsection "WARNINGS"
You can apply MooseX::OneArgNew more than once, but if more than one
application\*(Aqs type matches a single argument to \f(CW\*(C`new\*(C'\fR, the behavior is
undefined and likely to cause bugs.
.PP
It would be a \fBvery bad idea\fR to supply a type that could accept a normal
hashref of arguments to \f(CW\*(C`new\*(C'\fR.