Yet Another CPAN Grep

Dancer2-Plugin-HTTP-Bundle ( V/VA/VANHOESEL/Dancer2-Plugin-HTTP-Bundle-0.02.tar.gz, VANHOESEL, 2015; MetaCPAN )

Dancer2-Plugin-HTTP-Bundle/lib/Dancer2/Plugin/HTTP/Bundle.pm ( view source; MetaCPAN )

ject->date_last_modified
        ) =>sub { http_choose_accept (
            'application/json' => sub { to_json $secret_object },
            'application/xml'  => sub { to_xml  $secret_object },

nt-type does the client want
        http_choose_accept (
            
            [ 'application/json', 'application/xml' ] => sub {
                    
                # find the resource

            for (http_accept) {
                        when ('application/json') {
                            return to_json ( $secret_object )
                        }
                        when