Venus::Role::Printable

Printable Role

Printable Role for Perl 5

method: print method: print_pretty method: print_string method: say method: say_pretty method: say_string

package Example;

use Venus::Class;

with 'Venus::Role::Dumpable';
with 'Venus::Role::Printable';

attr 'test';

sub execute {
  return [@_];
}

sub printer {
  return [@_];
}

package main;

my $example = Example->new(test => 123);

# $example->say;

This package provides a mechanism for outputting (printing) objects or the return value of a dispatched method call to STDOUT.

The print method prints a stringified representation of the underlying data.

print(Any @data) (Any)

{ since => '0.01', }

=example-1 print

package main;

my $example = Example->new(test => 123);

my $print = $example->print;

# bless({test => 123}, 'Example')

# 1

The print_pretty method prints a stringified human-readable representation of the underlying data.

print_pretty(Any @data) (Any)

{ since => '0.01', }

=example-1 print_pretty

package main;

my $example = Example->new(test => 123);

my $print_pretty = $example->print_pretty;

# bless({ test => 123 }, 'Example')

# 1

The print_string method prints a string representation of the underlying data without using a dump. This method supports dispatching, i.e. providing a method name and arguments whose return value will be acted on by this method.

print_string(Str | CodeRef $method, Any @args) (Any)

{ since => '0.09', }

=example-1 print_string

package main;

my $example = Example->new(test => 123);

my $print_string = $example->print_string;

# 'Example'

# 1

The say method prints a stringified representation of the underlying data, with a trailing newline.

say(Any @data) (Any)

{ since => '0.01', }

=example-1 say

package main;

my $example = Example->new(test => 123);

my $say = $example->say;

# bless({test => 123}, 'Example')\n

# 1

The say_pretty method prints a stringified human-readable representation of the underlying data, with a trailing newline.

say_pretty(Any @data) (Any)

{ since => '0.01', }

=example-1 say_pretty

package main;

my $example = Example->new(test => 123);

my $say_pretty = $example->say_pretty;

# bless({ test => 123 }, 'Example')\n

# 1

The say_string method prints a string representation of the underlying data without using a dump, with a trailing newline. This method supports dispatching, i.e. providing a method name and arguments whose return value will be acted on by this method.

say_string(Str | CodeRef $method, Any @args) (Any)

{ since => '0.09', }

=example-1 say_string

package main;

my $example = Example->new(test => 123);

my $say_string = $example->say_string;

# "Example\n"

# 1

t/Venus.t: pdml: authors t/Venus.t: pdml: license

cpanm Venus

perl -MCPAN -e shell
install Venus