i'm trying to ease the production of xml streams in a perl6 script so i

    sub _attrs_str ( %attrs) {
        %attrs.pairs.map: { qq/{.key}="{.value}"/ }

    multi sub tag ( Str $tag, Parcel $attrs=()) {
        "<{ $tag, _attrs_str $attrs.hash }/>";

    multi sub tag ( Parcel $spec ) { tag $spec[0], $spec[1..*] }

now i can write 

    say tag < img src /images/logo.png >;

to produce  

    <img src="/images/logo.png"/>

the next step is to write  

    say img < src /images/logo.png >;

to get the same content. i also want to have link and meta helpers. what
i would like to write is 

    < link meta img >.map: {
        ( $?PACKAGE
        , $_
        , &tag.assuming( tag => $_ ) )

but $?PACKAGE.HOW is a PackageHOW and add_method comes with ClassHOW. if
someone can give me some clue ? 

thanks and regards
Marc Chantreux
Université de Strasbourg, Direction Informatique
14 Rue René Descartes,
"Don't believe everything you read on the Internet"
    -- Abraham Lincoln

Reply via email to