738 |
@@PerlDef: |
@@PerlDef: |
739 |
require Message::Markup::Atom; |
require Message::Markup::Atom; |
740 |
my $impl = $Message::DOM::ImplementationRegistry |
my $impl = $Message::DOM::ImplementationRegistry |
741 |
->get_implementation ({ |
->get_dom_implementation ({ |
742 |
<Q::fe|Atom> => '1.0', |
<Q::fe|Atom> => '1.0', |
743 |
}); |
}); |
744 |
|
|
748 |
@@PerlDef: |
@@PerlDef: |
749 |
require Message::Markup::Atom; |
require Message::Markup::Atom; |
750 |
my $impl = $Message::DOM::ImplementationRegistry |
my $impl = $Message::DOM::ImplementationRegistry |
751 |
->get_implementation ({ |
->get_dom_implementation ({ |
752 |
Core => '3.0', |
Core => '3.0', |
753 |
<Q::fe|Atom> => '1.0', |
<Q::fe|Atom> => '1.0', |
754 |
}); |
}); |
759 |
@@PerlDef: |
@@PerlDef: |
760 |
require Message::Markup::Atom; |
require Message::Markup::Atom; |
761 |
my $impl = $Message::DOM::ImplementationRegistry |
my $impl = $Message::DOM::ImplementationRegistry |
762 |
->get_implementation ({ |
->get_dom_implementation ({ |
763 |
XML => '3.0', |
XML => '3.0', |
764 |
<Q::fe|Atom> => '1.0', |
<Q::fe|Atom> => '1.0', |
765 |
}); |
}); |
795 |
The implementation <kwd:MUST> treate <DOM::null> |
The implementation <kwd:MUST> treate <DOM::null> |
796 |
as if an empty string is specified. |
as if an empty string is specified. |
797 |
@@Return: |
@@Return: |
798 |
@@@Type: AtomFeedDocument |
@@@Type: AtomDocument |
799 |
@@@enDesc: |
@@@enDesc: |
800 |
The newly created Atom Feed Document. |
The newly created Atom Feed Document. |
801 |
|
|
978 |
The implementation <kwd:MUST> treate <DOM::null> |
The implementation <kwd:MUST> treate <DOM::null> |
979 |
as if an empty string is specified. |
as if an empty string is specified. |
980 |
@@Return: |
@@Return: |
981 |
@@@Type: AtomEntryDocument |
@@@Type: AtomDocument |
982 |
@@@enDesc: |
@@@enDesc: |
983 |
The newly created Atom Entry Document. |
The newly created Atom Entry Document. |
984 |
|
|
1646 |
$test->assert_isa ($doc, <IFName::AtomDocument>); |
$test->assert_isa ($doc, <IFName::AtomDocument>); |
1647 |
##AtomDocument |
##AtomDocument |
1648 |
|
|
|
IFClsDef: |
|
|
@IFQName: AtomFeedDocument |
|
|
@ClsQName: ManakaiFeedEntryDocument |
|
|
|
|
|
@domperl:implementedByObjectsOf: Document |
|
|
@domperl:classImplementedByObjectsOf: td|ManakaiDOMDocument |
|
|
|
|
|
@f:implements: AtomFeature10 |
|
|
|
|
|
@enDesc: |
|
|
The <IF::AtomFeedDocument> interface provides convenience |
|
|
methods and attributes for an Atom |
|
|
Feed Document, i.e. representation of an Atom feed. |
|
|
|
|
|
If the <Feature::fe|Atom> feature version <FeatureVer::1.0> |
|
|
is supported, a <IF::Document> object whose <A::Document.documentElement>'s |
|
|
element type, if any, is <XE::atom|feed> at least at |
|
|
the time of creation <kwd:MUST> also |
|
|
implement the <IF::AtomFeedDocument> interface. Other |
|
|
<IF::Document> objects <kwd:MAY> also implement |
|
|
the <IF::AtomFeedDocument> interface. |
|
|
|
|
|
@Test: |
|
|
@@QName: createDocument.AtomFeedDocument.test |
|
|
@@PerlDef: |
|
|
my $impl; |
|
|
__CODE{tc|createImplForTest:: $impl => $impl}__; |
|
|
|
|
|
my $doc = $impl-><M::c|DOMImplementation.createDocument> |
|
|
(<Q::atom|>, 'feed'); |
|
|
|
|
|
$test->id ('interface'); |
|
|
$test->assert_isa ($doc, <IFName::AtomFeedDocument>); |
|
|
##AtomFeedDocument |
|
|
|
|
|
IFClsDef: |
|
|
@IFQName: AtomEntryDocument |
|
|
@ClsQName: ManakaiAtomEntryDocument |
|
|
|
|
|
@domperl:implementedByObjectsOf: Document |
|
|
@domperl:classImplementedByObjectsOf: td|ManakaiDOMDocument |
|
|
|
|
|
@f:implements: AtomFeature10 |
|
|
|
|
|
@enDesc: |
|
|
The <IF::AtomEntryDocument> interface provides convenience |
|
|
methods and attributes for an Atom |
|
|
Entry Document, i.e. exactly one Atom entry, outside |
|
|
of the context of an Atom feed. |
|
|
|
|
|
If the <Feature::fe|Atom> feature version <FeatureVer::1.0> |
|
|
is supported, a <IF::Document> object whose <A::Document.documentElement>'s |
|
|
element type, if any, is <XE::atom|entry> at least at |
|
|
the time of the creation <kwd:MUST> also |
|
|
implement the <IF::AtomEntryDocument> interface. Other |
|
|
<IF::Document> objects <kwd:MAY> also implement |
|
|
the <IF::AtomEntryDocument> interface. |
|
|
|
|
|
@Test: |
|
|
@@QName: createDocument.AtomEntryDocument.test |
|
|
@@PerlDef: |
|
|
my $impl; |
|
|
__CODE{tc|createImplForTest:: $impl => $impl}__; |
|
|
|
|
|
my $doc = $impl-><M::c|DOMImplementation.createDocument> |
|
|
(<Q::atom|>, 'entry'); |
|
|
|
|
|
$test->id ('interface'); |
|
|
$test->assert_isa ($doc, <IFName::AtomEntryDocument>); |
|
|
##AtomEntryDocument |
|
|
|
|
1649 |
AGDef: |
AGDef: |
1650 |
@QName: atomCommonAttributes |
@QName: atomCommonAttributes |
1651 |
@enFN: common attributes |
@enFN: common attributes |
3135 |
$test->assert_num_equals (actual_value => 0+@$list, expected_value => 0); |
$test->assert_num_equals (actual_value => 0+@$list, expected_value => 0); |
3136 |
|
|
3137 |
$test->id ('parent'); |
$test->id ('parent'); |
3138 |
|
my $parent; |
3139 |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
3140 |
|
$parent = $_; |
3141 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |
3142 |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
3143 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |
3157 |
my $el = $doc-><M::Document.createElementNS> (<Q::atom|>, 'entry'); |
my $el = $doc-><M::Document.createElementNS> (<Q::atom|>, 'entry'); |
3158 |
|
|
3159 |
$test->id ('parent'); |
$test->id ('parent'); |
3160 |
|
my $parent; |
3161 |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
for ($doc-><M::Document.createElementNS> (<Q::atom|>, 'feed')) { |
3162 |
|
$parent = $_; |
3163 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |
3164 |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
($doc-><M::Document.createElementNS> (<Q::atom|>, 'author')); |
3165 |
$_-><M::Node.appendChild> |
$_-><M::Node.appendChild> |