Show
Ignore:
Timestamp:
07/29/08 21:37:14 (4 months ago)
Author:
karpet
Message:

update perl bindings to use new WordList? API

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • libswish3/trunk/bindings/perl/lib/SWISH/3.pm

    r2030 r2151  
    116116    print '~' x 80, "\n"; 
    117117 
    118     my $props = $data->config->properties; 
     118    my $props     = $data->properties; 
     119    my $prop_hash = $data->config->get_properties; 
    119120 
    120121    print "Properties\n"; 
    121     for my $p ( keys %$props ) { 
    122         my $v    = $data->property($p); 
    123         my $type = $props->{$p}; 
    124         print "    <$p type='$type'>$v</$p>\n"; 
     122    for my $p ( sort keys %$props ) { 
     123        print " key: $p\n"; 
     124        my $prop_value = $props->{$p}; 
     125        print " value: " . Data::Dump::dump($prop_value) . "\n"; 
     126        my $prop = $prop_hash->get($p); 
     127        printf( "    <%s type='%s'>%s</%s>\n", 
     128            $prop->name, $prop->type, $data->property($p), $prop->name ); 
    125129    } 
    126130