%newobject am_set_default_feature_set;
extern Set *am_set_default_feature_set(void);
%newobject am_init_feature_set;
-extern Set *am_init_feature_set(void);
+extern Set *am_init_feature_set();
+%newobject features;
+extern am_feature_t *am_features(Set *);
%perlcode %{
return Amanda::Feature::am_init_feature_set();
}
+sub Amanda::Feature::Set::features {
+ my $class = shift;
+ return Amanmda::Feature::features();
+}
+
+
package Amanda::Feature;
%}