1#!/usr/local/bin/perl 2 3use Tk; 4use Tk::Pretty; 5 6sub lots 7{ 8 &Tk::Pretty::PrintArgs; 9 return (0..10); 10} 11 12sub one 13{ 14 &Tk::Pretty::PrintArgs; 15 return "Something"; 16} 17 18print Pretty(Tk::Callback->new(\&lots)->Call('a'..'d')),"\n"; 19print Pretty(Tk::Callback->new([\&lots,'A'..'F'])->Call('a'..'d')),"\n"; 20print Pretty(Tk::Callback->new(\&one)->Call('a'..'d')),"\n"; 21print Pretty(Tk::Callback->new([\&one,'A'..'F'])->Call('a'..'d')),"\n"; 22 23