.\" Automatically generated by Pod::Man 4.11 (Pod::Simple 3.35)
.\"
.\" 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
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
.    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
.\" ========================================================================
.\"
.IX Title "Bread::Board::Literal 3pm"
.TH Bread::Board::Literal 3pm "2020-04-01" "perl v5.30.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 "NAME"
Bread::Board::Literal \- service providing a literal value
.SH "VERSION"
.IX Header "VERSION"
version 0.37
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\&  my $c = container PrettyBoring => as {
\&
\&      # These are Bread::Board::Literal services
\&      service connect_string => \*(Aqdbi:mysql:boring_db\*(Aq;
\&      service service_url => \*(Aqhttp://api.example.com/v0/boring\*(Aq;
\&
\&      # And some other services depending on them...
\&
\&      service dbconn => (
\&          class => \*(AqDBI\*(Aq,
\&          block => sub {
\&              my $s = shift;
\&              DBI\->new($s\->param(\*(Aqconnect_string\*(Aq);
\&          },
\&          dependencies => wire_names(qw( connect_string )),
\&      );
\&
\&      service service_request => (
\&          class => \*(AqHTTP::Request\*(Aq,
\&          block => sub {
\&              my $s = shift;
\&              HTTP::Request\->new(POST => $s\->param(\*(Aqservice_url\*(Aq));
\&          },
\&          dependencies => wire_names(qw( service_url ));
\&      };
\&  };
\&
\&  # OR to use directly:
\&  my $literal = Bread::Board::Literal\->new(
\&      name  => \*(Aqthe_answer_to_life_the_universe_and_everything\*(Aq,
\&      value => 42,
\&  );
\&  $c\->add_service($literal);
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
A literal service is one that stores a literal scalar or reference for use in
your Bread::Board.
.PP
Beware of using references in your literals as they may cause your Bread::Board
to leak memory. If this is a concern, you may want to weaken your references.
.PP
See \*(L"weaken\*(R" in Scalar::Util.
.SH "ATTRIBUTES"
.IX Header "ATTRIBUTES"
.ie n .SS """value"""
.el .SS "\f(CWvalue\fP"
.IX Subsection "value"
Required attribute with read/write accessor. This is the value that
\&\*(L"get\*(R" will return.
.SH "METHODS"
.IX Header "METHODS"
.ie n .SS """get"""
.el .SS "\f(CWget\fP"
.IX Subsection "get"
Returns the \*(L"value\*(R", unaltered.
.ie n .SS """clone_and_inherit_params"""
.el .SS "\f(CWclone_and_inherit_params\fP"
.IX Subsection "clone_and_inherit_params"
Dies: a literal service is (essentially) a constant, it does not make
sense to inherit from it.
.SH "AUTHOR"
.IX Header "AUTHOR"
Stevan Little <stevan@iinteractive.com>
.SH "BUGS"
.IX Header "BUGS"
Please report any bugs or feature requests on the bugtracker website
https://github.com/stevan/BreadBoard/issues
.PP
When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.
.SH "COPYRIGHT AND LICENSE"
.IX Header "COPYRIGHT AND LICENSE"
This software is copyright (c) 2019, 2017, 2016, 2015, 2014, 2013, 2011, 2009 by Infinity Interactive.
.PP
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.