n::Format::LDAP::make_ldif($self);
}
elsif ($opts->{as} eq "json") {
require JSON;
$dump = JSON::encode_json(\%struct);
}
elsif ($opts->{as} eq "perl") {
$dump
$dump = $dumper->Dump;
}
# add a newline if output is missing one (typically for JSON)
$dump .= "\n" unless $dump =~ /\n$/;
return print $dump
}
else {
s set,
otherwise returns the result.
B<Arguments>
=over
=item *
C<as> - specify the format: C<json>, C<perl>, C<yaml>
=back
=head2 task_info
Print information about the RackObject
=head2 tas