#!perl use strict; use warnings; use Web::Machine; =pod This test shows that the order of content_types_provided is actually important if you do not specify a media-type. # JSON is the default ... curl -v http://0:5000/ # you must ask specifically for HTML curl -v http://0:5000/ -H 'Accept: text/html' # but open in a browser and you get HTML open http://0:5000/ =cut { package YAPC::NA::2012::Example001::Resource; use strict; use warnings; use JSON::XS qw[ encode_json ]; use parent 'Web::Machine::Resource'; sub content_types_provided { [ { 'application/json' => 'to_json' }, { 'text/html' => 'to_html' }, ] } sub to_json { encode_json( { message => 'Hello World' } ) } sub to_html { '

Hello World

' } } Web::Machine->new( resource => 'YAPC::NA::2012::Example001::Resource' )->to_app;