Jump to content

Process SMIL directives in XML data: Difference between revisions

m
(added Perl 6 programming solution)
m (→‎{{header|Perl 6}}: wrong version)
Line 216:
%Parents{$y}:exists ?? die() !! %Parents{$y} = Animatee.new; # unique only
for .parent.elements {
(%Parents{$y}).todo = .attribs<attributeName>;
(%Parents{$y}).from = .attribs<from>.split(/\s+/);
(%Parents{$y}).to = .attribs<to>.split(/\s+/);
(%Parents{$y}).begin = .attribs<begin>.match(/\d+/);
(%Parents{$y}).dur = .attribs<dur>.match(/\d+/);
}
}
351

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.