Select Code to Download

Select or download this

#!/usr/bin/perl
use XML::Feed;
...
            print $entry->{'http://www.itunes.com/dtds/podcast-1.0.dtd
+'}{'duration'} . "\n";
            print $entry->duration . "\n";
}

Select or download this

Conquest Over Time by SHAARA, Michael
    <p>Pat Travis, a spacer renowned for his luck, is suddenly quite o
+ut of it. His job is to beat his competitors to sign newly-Contacted 
+human races to commercial contracts...
...
1 - Section 1
    
Can't locate object method "duration" via package "XML::Feed::Entry::F
+ormat::RSS" at ./get_feed.pl line 15.

Select or download this
```
print Dumper( $entry );
```

Select or download this

    $VAR1 = bless( {
                     'entry' => {
...
                                },
                     '_version' => '2.0'
                   }, 'XML::Feed::Entry::Format::RSS' );