Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

RFC: Data-HAL - Hypertext Application Language

by daxim (Chaplain)
on Sep 09, 2013 at 10:46 UTC ( #1053002=perlmeditation: print w/replies, xml ) Need Help??


use Data::HAL qw(); use Data::HAL::Link qw(); { my $hal = Data::HAL->from_json($json_str); my $resource_member_data_href = $hal->resource; my $links_aref = $hal->links; my $embedded_resources_aref = $hal->embedded; } { my $hal = Data::HAL->new( resource => {foo => 23, bar => 42}, links => [Data::HAL::Link->new(relation => 'self', href + => '/')], ); my $json_str = $hal->as_json; # { # "_links" : { # "self" : { # "href" : "/" # } # }, # "bar" : 42, # "foo" : 23 # } my @headers = $hal->http_headers; # ( # 'Content-Type' => 'application/hal+json', # 'Link' => '</>;rel="self"' # ) }


This is a data (de)serialiser. See and

Documentation is about half complete. Give me any feedback.

Cross-posting to module-authors, Prepan.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlmeditation [id://1053002]
Approved by Corion
[james28909]: consolidate the three subs into one
[Lady_Aleena]: Um, what?
[james28909]: check is is data or hash or array and do tasks then return needed data
[Lady_Aleena]: james28909, you might want to look at the other two on my scratchpad.
[james28909]: after you send to a sub, you can check if it is array or ref ect with ref
[james28909]: check if it is a hash or an array ect with ref in one sub.
[james28909]: like all the subs calling get_data get_array get_ect, you could just use get_data. once you send the data to get_data, check if it is a hash or an array ect. and do functions for each, in one sub

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (9)
As of 2017-05-24 04:54 GMT
Find Nodes?
    Voting Booth?