package zvukiru::TagLink; use base 'Contenido::Link'; sub class_name { return 'Тег к объекту'; } sub class_description { return 'Организация облака тегов'; } sub extra_properties { return ( ); } sub available_sources { return [ qw(tags::Tag) ]; } sub available_destinations { return $state->{tags}->tags_destinations; } sub class_table { return 'tags::SQL::TagsCloudTable'; } sub pre_store { my $self = shift; return 1; } 1;