package
OODoc::Text::Diagnostic;
$VERSION
=
'0.92'
;
use
strict;
use
warnings;
use
Carp;
sub
init($)
{
my
(
$self
,
$args
) =
@_
;
$args
->{type} ||=
'Diagnostic'
;
$args
->{container} =
delete
$args
->{subroutine} or confess;
$self
->SUPER::init(
$args
) or
return
;
$self
;
}
#-------------------------------------------
sub
subroutine() {
shift
->container }
#-------------------------------------------
1;