5.36.0;
# Boolean and set handling
use JSON::PP (); # to ensure that JSON::PP::true and ::false are populated
sub boolify ($val) { $val ? JSON::PP::true : JSON::PP::false }
# The top-level collecti
s_struct ($self) {
return {
type => 'date',
timestamp => 0 + $self->timestamp, # 0+ for JSON serialization's sake
format => "" . $self->format,
($self->has_fallback ? (fallback =
ture with C<as_struct>, the styled defined in that instance's C<style>
#pod hash will be added as JSON boolean objects.
#pod
#pod You probably don't need to think about this role, though.
#pod
#pod =c
structure with C<as_struct>, the styled defined in that instance's C<style>
hash will be added as JSON boolean objects.
You probably don't need to think about this role, though.
=head1 AUTHOR
Ricar
ck_count;
}
sub as_struct ($self) {
return [ map {; $_->as_struct } $self->blocks ];
}
sub TO_JSON ($self) {
return $self->as_struct;
}
no Moose;
no MooseX::Types::Moose;
no Moose::Util::TypeCo