view release on metacpan or  search on metacpan

lib/App/Office/CMS/Database/Menu.pm  view on Meta::CPAN

package App::Office::CMS::Database::Menu;

use strict;
use warnings;

use Moo;

use Tree::DAG_Node::Persist;

use Types::Standard qw/Str/;

extends 'App::Office::CMS::Database::Base';

has context =>
(
	is       => 'rw',
	isa      => Str,
	required => 0,
);

has table_name =>
(
	is       => 'ro',
	isa      => Str,
	required => 0,
	default  => sub {return 'menus'},
);

our $VERSION = '0.93';

# --------------------------------------------------

sub add
{
	my($self, $design, $tree, $extra) = @_;

	$self -> log(debug => 'add(..., $tree)');

	$self -> context($self -> db -> build_context($$design{site_id}, $$design{id}) );

	return $self -> save_menu_tree('add', $tree, $extra);

} # End of add.

# --------------------------------------------------

sub delete_node_by_id
{
	my($self, $id) = @_;

	$self -> log(debug => "delete_node_by_id($id)");

	return $self -> db -> simple -> delete('menus', {id => $id});

} # End of delete_node_by_id.

# --------------------------------------------------
# Warning: Do not add $self.

sub find_node_by_name
{