NAME

Venus::Role::Serializable - Serializable Role

ABSTRACT

Serializable Role for Perl 5

SYNOPSIS

            

              
              
package Example;
use Venus::Class;
with 'Venus::Role::Serializable';
attr 'test';
package main;
my $example = Example->new(test => 123);
# $example->serialize;
# {test => 123}
            
          

DESCRIPTION

This package provides a mechanism for serializing objects or the return value of a dispatched method call.

METHODS

This package provides the following methods:

serialize

            

              
              
serialize(string | coderef $code, any @args) (any)
            
          

The serialize method serializes the invocant or the return value of a dispatched method call, and returns the result.

Since 1.75

serialize example 1

            

              
              
package Example1;
use Venus::Class 'with';
with 'Venus::Role::Serializable';
sub ARGS {
  (@_[1..$#_])
}
sub DATA {
  [@_[1..$#_]]
}
package main;
my $example1 = Example1->new(1..4);
# bless([1..4], 'Example1')
# my $result = $example1->serialize;
# [1..4]
            
          

serialize example 2

            

              
              
package Example2;
use Venus::Class 'with';
with 'Venus::Role::Serializable';
sub ARGS {
  (@_[1..$#_])
}
sub DATA {
  sub{[@_[1..$#_]]}
}
package main;
my $example2 = Example2->new(1..4);
# bless(sub{[1..4]}, 'Example2')
# my $result = $example2->serialize;
# sub{...}
            
          

serialize example 3

            

              
              
package Example3;
use Venus::Class 'with';
with 'Venus::Role::Serializable';
sub ARGS {
  (@_[1..$#_])
}
sub DATA {
  qr{@{[join '', @_[1..$#_]]}};
}
package main;
my $example3 = Example3->new(1..4);
# bless(qr/1234/, 'Example3')
# my $result = $example3->serialize;
# qr/1234/u
            
          

serialize example 4

            

              
              
package Example4;
use Venus::Class 'with';
with 'Venus::Role::Serializable';
sub ARGS {
  (@_[1..$#_])
}
sub DATA {
  \join '', @_[1..$#_]
}
package main;
my $example4 = Example4->new(1..4);
# bless(\'1234', 'Example4')
# my $result = $example4->serialize;
# "1234"
            
          

serialize example 5

            

              
              
package Example5;
use Venus::Class 'with';
with 'Venus::Role::Serializable';
sub ARGS {
  (@_[1..$#_])
}
sub DATA {
  \(my $ref = \join '', @_[1..$#_])
}
package main;
my $example5 = Example5->new(1..4);
# bless(do{\(my $ref = \'1234')}, 'Example5')
# my $result = $example5->serialize;
# "1234"
            
          

serialize example 6

            

              
              
package Example6;
use Venus::Class 'base';
base 'Venus::Array';
package main;
my $example6 = Example6->new([1..4]);
# bless(..., 'Example6')
# my $result = $example6->serialize;
# [1..4]
            
          

serialize example 7

            

              
              
package Example7;
use Venus::Class 'base';
base 'Venus::Path';
package main;
my $example7 = Example7->new('/path/to/somewhere');
# bless(..., 'Example7')
# my $result = $example7->serialize;
# "/path/to/somewhere"
            
          

serialize example 8

            

              
              
package Example8;
use Venus::Class 'with';
with 'Venus::Role::Serializable';
with 'Venus::Role::Valuable';
package main;
my $example8 = Example8->new(value => 123);
# bless(..., 'Example8')
# my $result = $example8->serialize;
# 123
            
          

serialize example 9

            

              
              
package Example9;
use Venus::Class 'base', 'with';
base 'IO::Handle';
with 'Venus::Role::Serializable';
package main;
my $example9 = Example9->new;
# bless(..., 'Example9')
# my $result = $example9->serialize;
# Exception! (isa Venus::Error) is "on.serialize"
            
          

serialize example 10

            

              
              
package Example10;
use Venus::Class 'attr', 'with';
with 'Venus::Role::Serializable';
attr 'test';
package main;
use IO::Handle;
my $example10 = Example10->new(test => IO::Handle->new);
# bless(..., 'Example10')
# my $result = $example10->serialize;
# Exception! (isa Venus::Error) is "on.serialize.deconstruct"
            
          

AUTHORS

Awncorp, awncorp@cpan.org

LICENSE

Copyright (C) 2022, Awncorp, awncorp@cpan.org.

This program is free software, you can redistribute it and/or modify it under the terms of the Apache license version 2.0.